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QUICK LOOK-UP OPERATING INSTRUCTIONS 

FOR A QUICK REFERENCE , LOOK UP THE FOLLOWING SECTIONSl 

1.0 ABSTRACT 

2.0 REQUIREMENTS 

4.1 LOADING AND OPERATOR ACTION 
7-0 SWITCH OPTIONS 

FOR A MORE COMPLETE EXPLANATION REFER TO THE TABLE OF 
CONTENTS BELOW AND THE FOLLOWING DOCUMENT. 
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1.0 ABSTRACT 

THE RK11 LOGIC TESTS CONSIST OF A SERIES OF TESTS 
AIMED AT CHECKING THE BASIC LOGIC OF THE RK1 1 
CONTROLLER . THIS PROGRAM IS THE SECOND PART OF THE 
TWO-PART RK11 LOGIC TESTS. IT SHOULD BE NOTED THAT 
LOGIC TEST I AND LOGIC TEST II TOGETHER CONSTITUTE 
A COMPLETE PROGRAM AND BOTH OF THEM SHOULD BE RUN . 

WHEN USED IN CONJUNCTION WITH A DRIVE IT IS CAPABLE 
OF DETECTING FAULTS IN THE DRIVE ALSO, 

USED CORRECTLY THIS PROGRAM CAN BE AN EFFECTIVE 
ANALYTIC AND DIAGNOSTIC TOOL. 



2.0 REQUIREMENTS 

2.1 EQUIPMENT 

A . PDP11 WITH CONSOLE TELETYPE. 

B. 8K OF MEMORY 

C. RK1 1 OR RKV1 1 CONTROLLER 

D. 1-8 RK05 OR RK05F DRIVES OR THE RK05 SIMULATOR 
(DRIVE TYPES MAY BE MIXED) 

2*2 PRELIMINARY PROGRAMS 

RK1.1 BASIC LOGIC TEST I ( MD-1 1 -D2RKJ ) 

2.3 EXECUTION TIME 

ERROR FREE FIRST PASS ON PDP11/20 WITH CORE MEMORY 
TAKES APPROXIMATELY TWO MINUTES. CONSIDERABLY LESS 
FOR FASTER MACHINES OR MEMORIES. 



3.0 STARTING ADDRESS 

200 FOR ANY MODE OF OPERATION. NORMAL START UP MITH 
ALL SWITCHES DOWN. 



4.0 PROGRAM CONTROL MODES & OPERATOR ACTION 

PAPER TAPE LOADING 
RKDP DUMP MODE 
RKDP CHAIN MODE 
ACT11 
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SEQ 0004 



4.1 PAPER TAPE LOADING 

4.1.1 LOAD PROGRAM INTO MEMORY USING STANDARD PROCEDURE 
FOR . ABS TAPES. 

4.1 .2 MAKE SURE THAT THE DRIVES TO BE CHECKED ARE LOADED 
WITH DISKS AND ARE IN 'RUN 1 . 1 WRT ENABLE' THEM. 
CHECK THAT ' WRT PROT ' LIGHT ON THESE DRIVES IS OFF. 
PUT DRIVES THAT ARE NOT TO BE TESTED ON 1 LOAD 1 » 



4.1*3 LOAD ADDRESS 200 

4*1.4 SET SWITCHES IF DESIRED (SEE SEC 7.0) IF TESTING ON 
SIMULATOR PUT SW<10> UP. 



PRESS START. 



4.1 .5 THE PROGRAM IDENTIFIES ITSELF ( NAME , MAINDEC NO) , 
THEN THE FOLLOWING QUESTION IS ASKED: 



DRIVES TO BE TESTED? 



THE USER SHOULD TYPE IN THE I 
IN 'RUN' AND TO BE TESTED. 
TERMINATE THE STRING. IF AN 
TYPE THE SUFFIX » F' WITH THE 
FOR EXAMPLE, IF DRIVES 2 AND 
ONLY 2F. 



iRIVE NUMBERS THAT ARE 
CARRIAGE RETURN SHOULD 
RK-05F IS TO BE TESTED, 
FIRST DRIVE OF THE PAIR. 
3 ARE ON AN RK-05F, TYPE 



EXMP: DRIVES TO BE TESTED? 0,1,2<CR> 

THE DRIVES DO NOT HAVE TO BE IN LOGICAL ORDER. 

EXMP: DRIVES TO BE TESTED? 2,4<CR> 

IF ANY ONE DRIVE IS TO BE TESTED, TYPE IN THAT 
NUMBER. IT DOES NOT HAVE TO BE DRIVE 0. 

THUS A NORMAL SEQUENCE WITH DRIVES 0,1 WOULD BE: 



RK1 1 BASIC LOGIC TEST 2 

MAINDEC-1 1-CZRKKF 

DRIVES TO BE TESTED? 0,1<CR> 



4.1 .6 THERE IS A "RUBOUT" FEATURE WHICH ALLOWS RUBBING OUT 
ANY NUMBER OF CHARACTERS THAT WERE TYPED IN WRONG. 
THE RUBBED OUT CHARACTERS ARE ECHOED BACK WITHIN 

SLASHES* 



U ~U® DELETES THE ENTIRE LINE 
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SEQ 0005 



4.1.7 IF REPLY TO ANY OF THE ABOVE QUESTION IS IN A WRONG 
FORMAT (EXS 01 2<CR> ; f 8<CR> | ? A<CR>; M<CR> ETC) f IT 
IS AUTOMATICALLY REJECTED, A M ??® IS PRINTED OUT | 



THE CORRECT ANSWER CAN NOW BE RETYPED AGAIN * 
4.1.8 THE DRIVE NUMBER BEING TESTED OUT IS PRINTED* 
DRIVE *i ?N=0 S 1««*7 

IF THE DRIVE IS AN RK~05F f AN F IS APPENDED 
AT THE END OF A PASS THE FOLLOWING TYPE-OUT OCCURS 
END PASS # X 

WHERE Xs PASS NUMBER (1,2,3— ) ¥ CONTROL IS PASSED 
TO THE BEGINNING OF THE PROGRAM AND RE-EXECUTION 
BEGINS • NO QUESTIONS ARE TO BE ANSWERED AGAIN* 



4.1.9 ERROR FREE PASSES OF THE PROGRAM APPEAR AS SHOWN 
BELOM » 

RK11 BASIC LOGIC TEST 2 
MAINDEC-11-CZRKKF 

DRIVES TO BE TESTED? 

0,1<CR> 

DRIVE 

DRIVE 1 
END PASS # 1 


DRIVE 1 

END PASS # 2 



4*2 RKDP DUUiP MODE 

4.2.1 THE PROGRAM IS LOADED INTO THE MEMORY BY THE RKDP 
MONITOR 

4.2.2 START AS NORMALLY USING SA 200 

4.2.3 THE PROGRAM IDENTIFIES ITSELF (NAME f MAI ND EC NO.)* 
ON FINDING OUT THAT THE LOADING WAS BY RKDP (DUMP 
MODE) , THE FOLLOWING MESSAGE APPEARS? 

! TO TEST DRIVE 'N' HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT 
WITH A WORK PACK, CLEAR LOCATION 40 t AND RESTART PROGRAM' 

IF DRIVE ? N 5 IS TO BE TESTED, THE RKDP PACK ON THAT 
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SEQ 0006 



DRIVE SHOULD BE REPLACED BY ANOTHER PACK. THE DRIVE 
SHOULD BE PUT ON 1 WRT ENABL ' (BECAUSE RKDP WRITE 
PROTECTS THE DRIVE) . 

IF DRIVE »N« IS NOT TO BE CHECKED, THEN THE MESSAGE 
SHOULD BE IGNORED. 

AFTER THIS, THE SEQUENCE OF QUESTIONING IS AS 

EXPLAINED IN SEC 4, 1 *5* 

4*3 RKDP CHAIN MODE 

THE PROGRAM IS CHAIN- LOADED FROM THE RKDP PACK ON 
DRIVE 'N» . AFTER THE PROGRAM IDENTIFIES ITSELF THE 
FOLLOWING PRINTOUT OCCURS. 

1 DRIVE 'N* NOT TESTED 1 

THERE IS NO OPERATOR INTERVENTION REQUIRED. THE 
PROGRAM FINDS OUT THE NUMBER OF DRIVES PRESENT. 

4.4 ACT11 MODE 

THE PROGRAM IS LOADED BY THE ACT11 MONITOR. ON 

STARTING, IDENTIFIES ITSELF, ASCERTAINS THE NUMBER 

OF DRIVES AND PROCEEDS WITH THE EXECUTION OF THE 
TESTS AS BEFORE. 



5.0 DRIVE SELECTION 

IF ANY PARTICULAR DRIVE IS TO BE SELECTED FOR 
TESTING, PUT THAT* DRIVE ON 'RUN' , 'WRITE ENABLE' ; 
PUT REST OF THE DRIVES ON 1 LOAD' , 'WRITE LOCK' AND 
IN REPLY TO THE QUES- TIONVES TO BE TESTED?) 
TYPE IN THE DRIVE NUMBER FOLLOWED BY CR* SEE SEC 
4. 1 ,5, 



8.0 DRIVE-LESS TEST 

USE RK1 1 BASIC LOGIC TEST I , WHICH IS ACTUALLY THE 
FIRST PART OF THE TWO-PART RK11 BASIC LOGIC TESTS. 
SEE SEC 1 .0, 2*2, 



7.0 SWITCH OPTIONS 

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN 1 1/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AT") WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 
•SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8) . THE 
SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A "CONTROL G' . THE PROGRAM WILL 
RECOGNIZE THE 'CONTROL G» WHENEVER THE PROGRAM ENTERS 
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SEQ 0007 



THE SCOPE ROUTINE OR BEGINS A NEW TEST • THE 

1 SOFTWARE 8 SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE? 

s SWR « NNNNNN NEW = 8 

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE WfUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED. , ' RUBOUT 1 AND 
1 CONTROL U ! FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY . 

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS f THE 8 SOFTWARE 1 SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
•UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
1 SOFTWARE s REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 
BE FOLLOWED 



SW<15>=1 
SW<14>=1 
SW<13>=1 
SW<12>=1 

SW<1 1>=! 
SW<10>=1 
SW<09>=1 
SW<08>=1 
SW<06>=1 



7.1 SW<15> 

THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER 
TYPING OUT THE ERROR MESSAGE AND PERTINENT 
INFORMATION, PRESSING "CONTINUE 3 RESTORES NORMAL 
OPERATION OF THE PROGRAM. 

7«2 SW<14> 

THE PROGRAM! LOOPS ON THE SUBTEST THAT IS BEING 
EXECUTED WHEN THE SWITCH IS PUT ON* THIS SWITCH IS 
USED NORMALLY ALONG SW 15, SEE SEC 8*0, 

7.3 SW <13> 

THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY 
USED WHEN LOOPING ON TEST (SW 14) OR LOOPING ON 
ERROR (SW 9) . 

7.4 SW <12> 

THIS SWITCH ALLOWS THE PORGRAM TO CYCLE FROM THE 
POINT OF EFROR TO THE PREVIOUS SCOPE STATEMENT * 
NOTE THAT IN DOING SO ANY INITIALIZATION BEING DONE 

AT THE BEGINING OF THE SUBTEST WILL BE DONE AGAIN 
AND AGAIN* SEE SEC 8.0 FOR DIFFERENT SCOPE LOOPS 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR PRINTOUTS 

CYCLE ON ERROR TO THE PREVIOUS 

' SCOPE ' STATEMENT 

INHIBIT ITERATIONS 

TESTING ON SIMULATOR 

LOOP ON SPECIFIC ERROR 

LOOP ON TEST AS PER SW<07:00> 

DROP THE DRIVE AFTER MAXIMUM 

ALLOWABLE NUMBER OF ERRORS OCCUR 
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SEO 0008 



AVAILABLE* 

7.5 SW <11> 

EACH SUBTEST WILL BE EXECUTED ONLY ONCE. NORMALLY 
AFTHE FIRST PASS , EACH SUBTEST IS ITERATED A 
NUMBER OF TIMES (USUALLY 50, 5 IN SOME CASES) . 
SETTING THIS SWITCH INHIBITS ITERATIONS, SO THAT 
QUICK PASSES CAN BE MADE. 

7«6 SW <10> 

THIS SWITCH WHEN SET INDICATES THAT TESTING IS BEING 
DONE ON A SIMULATOR. THE SWITCH SHOULD BE PUT UP 
BEFORE START- ING THE PROGRAM. NOTE THAT RK11C IS 
NOT COMPATIBLE WITH THE SIMULATOR. 



7.7 SW <09> 

THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE 
LOOP. NOTE THATKE SW12 THE INITIALIZATION OF 
PARAMETERS AT THE BEGINNING OF THE SUBTEST MAY NOT 
BE DONE IN THIS CASE. THIS SWITCH IS HELPFUL WHEN A 
PARTICULAR PART OF A SUBTEST IS BEING REPEATED USING 
DIFFERENT PARAMETERS AND YOU WANT TO SCOPE ON THE 
PARAMETER IN ERROR. (EXAMPLE: RKDA IS BEING WRITTEN 
AND READ BACK WITH COUNT PATTERNS FROM 1 TO 177777. 
PATTERN 561 IS GIVING ERROR, YOU MIGHT NOT WANT TO 
GO THROUGH THE 560 PATTERNS BEFORE HITTING ERROR ON 
THE 561TH PATTERN. IN THIS CASE SW 9 WILL GIVE YOU 
A SCOPE LOOP ON THE 561 TH PATTERN ONLY 

7.8 SW <08> 

THIS SWITCH IS USED TO SELECT A PARTICULAR TEST (AS 
PER SW<00-07>) FOR EXECUTION AND SUBSEQUENT LOOPING. 
THUS IF TEST 15 IS TO BE SELECTED THE SWITCH SETTING 
WOULD BE 000415. IT SHOULD BE NOTED THAT BEFORE 
SELECTING TEST 15, ALL THE PREVIOUS TESTS (1-14) 
WILL BE EXECUTED. 

7*9 SW<06> 

THIS SWITCH ALLOWS THE PROGRAM TO DROP A DRIVE FROM 

THE SELECTION LIST AND TESTING AFTER MAXIMUM 

ALLOWABLE ERROR COUNT (TOTAL NUMBER OF ERRORS) ON 

THAT DRIVE IS EXCEEDED. THE MAXIMUM ALLOWABLE ERROR 

COUNT IS 5, AFTER 5 ERRRORS HAVE OCCURED DRIVE 

IS DROPPED AND A MESSAGE (DRIVE # XXX DROPPED) IS 

PRINTED. 



8.0 



SCOPE LOOPS 
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SEQ 0009 



THERE ARE THREE KINDS OF SCOPE LOOPS AVAILABLE 

1* SW14: LOOPING IS DONE FOR THE ENTIRE SUB-TEST 

2. SW1 2 s LOOPING IS DONE FROM THE POINT OF ERROR 

BACK TO THE PREVIOUS 1 SCOPE 8 STATEMENT . 

3, SWG9S PROVIDE THE TIGHTEST POSSIBLE SCOPE LOOP 

SEE SEC* 7.7 

EXAMPLES 
TST1S SCOPE 



INITIALIZATION 
ERROR 1 

ERROR 2 
ERROR 3 
ERROR' 4 

TST2: SCOPE 

THE SEQUENCE OF LOOPING FOR DIFFERENT CASES IS 
EXPLAINED BELOW* NOTE THAT ' TST1 8 AND ! TST2 ! ARE 
TAGS WHICH DEFINE THE BOUNDARY OF A TEST, (IN THIS 
CASE TEST 1 ) . TEST 1 STARTS AT S TST1* AND ENDS JUST 
BEFORE 'TST2«« 

IN THE ILLUSTRATION BELOW « > INDICATES THE POINT 
FROM WHERE RETURN IS MADE AND LOOPING IS DONE* 

1 . ERROR 2 OCCURS, SW 14 SET, 

TST1 » • ERROR 2. . TST2— >TST1 • . ERROR 2.«TST2 — >TST1 . . . 

2. ERROR 2 OCCURS, SW 12 SET* 

TST1... ERROR 2— >TST1 . . . ERR0R2— ->TST1 . • . 

3. ERROR 2,3; SW 14 SET* 

TST1 • . ERROR 2«*ERR0R 3 • » TST2* — >TST1 . . ERROR 2»«£RR0R 
3»»TST2 — >TST' . . 

4. ERROR 2,3; SW 12 SET. 

TST1 • . « ERROR 2™>TST1 » * * ERROR 2— >TST1..,* 
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SEQ 001© 



NOTE THAT LOOPING IS DONE FROM THE VERY FIRST ERROR 
ENCOUNTERED. THE MORE BASIC AND ERROR THE EARLIER 
IT OCCURS AND IS DETECTED AND SHOULD BE FIXED. 

IN THE ABOVE EXAMPLE NO PART OF THE SUB-TEST IS 
BEING REPEASING DIFFERENT PARAMETERS , HENCE IT 
SO HAPPENS THAT SW 9 AND 12 GIVE THE SAME KIND OF 
LOOPS. THE EXAMPLE BELOW WILL DEMONSTRATE THE 
DIFFERENCE BETWEEN SW 9 AND 12. 

TST1: SCOPE 



INITIALIZATION 
ERROR 1 

MOV #1$,$LPERR 

1$: 

ER I 
TST2: SCOPE 

1 . SW 12 SET , ERROR 2 OCCURS DURING K.TH 
REPETITIONS 

TST1«»1 ? 2»«»K« ERROR 2— >TST 1 . . 1 f 2 . . . K • ERROR 2™>TST1 . * 

2. SW 9 SET, ERROR 2 OCCURS DURING K.TH REPETITION 
1$. «K« • ERROR 2 — >1 $ * « K * « ERROR 2-->1$. * . 

9.0 PROGRAM STRUCTURE 

THERE ARE THREE DISTINCT PARTS OF THE PROGRAM. 
SET-UP PHASE 

DRIVE-DEPENDENT CONTROLLER TESTS 

9.1 SET-UP PHASE 

SETTING UP OF INITIAL POINTERS, VECTORS, TABLES IS 
DONE IN THIS PART. IN THIS SECTION THE DECISION IS 
MADE ABOUT TV". PROGRAM MODE-PAPER TAPE, RKDP DUMP, 
CHAIN OR ACT1 1 . IF IN A NON-INTERVENTION MODE 
(CHAIN, ACT1 1 ) NUMBER OF DRIVES AND THE TYPE OF 
CONTROLLER IS FOUND OUT. FLAGS ARE SET TO INDICATE 



; 1 $LPERR ' CONTAINS 
; THE ADDRESS TO LOOP 
; BACK ON ERROR- SW 9 

I 

N REPETITIONS 
I 
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SEQ 0011 



WHICH DRIVES ARE TO BE TESTED t ETC* 

9.2 DRIVE DEPENDENT CONTROLLER TESTS 

THIS SECTION FORMS A MAJOR PART OF THE PROGRAM 
WHEREIN MOST OF THE CONTROLLER IS CHECKED* 

JUST BEFORE ENTERING THIS SECTION THE PROGRAM FINDS 
OUT WHICH DRIVE IS TO BE CHECKED. IF IN RKDP CHAIN 
MODE v DRIVE ' N 1 IF PRESENT, IS SKIPPED AND THE NEXT 
AVAILABLE DRIVE IS SELECTED. 

THE DRIVE NUMBER BEING TESTED IS PRINTED OUT" 

DRIVE N ;N=O f 1 9 2, . .7 

THE TESTING IS DONE IN A LOGICAL HI ERCHY f SIMPLER 
THINGS FIRST ? THEN MORE COMPLEX AND SO QN« 

IN ONE OF THE TESTS THE ENTIRE DISK PACK IS 
FORMATTED, CHECKS ARE MADE FOR ERROR CONDITIONS • 
THE FIRST WORD OF EVERY SECTOR IS WRITTEN AS A 
PSU EDO-HEADER f REFLECTING THE ABSOLUTE ADDRESS OF 
THAT SECTOR (DRIVE CYLINDER # ? SURFACE # f SECTOR 
#). EXAMPLE : THE PSUEDO-HEADER FOR SECTOR 5 § 
SURFACE 0, CYLINDER 20, DRIVE WOULD BE 001005. 

IN THE NEXT TEST THE HEADERS FROM THE ENTIRE PACK 
ARE READ AND CHECKED FOR CORRECTNESS. IN A 

SUBSEQUENT TEST ALL THE PSU EDO-HEADERS ARE READ AND 
VERIFIED* 

ALL THE FUNCTIONS ARE CHECKED OUT. 8 SEEK 8 IS 
CHECKED IN THE THREE DIFFERENT VELOCITY MODES (HIGH, 
MEDIUM, LOW) . VARIOUS ERRORS LIKE 1 NXD 8 t 'NXC' * 
ETC. ARE SIMULATED AND CHECKED. 

HARDWARE POGIC IS CHECKED USING ALL THE DRIVES 
THAT HAVE BEEN INDICATED. 

AT THE END OF THIS SECTION, A CHECK IS MADE IF ALL 
INDICATED DRIVES HAVE BEEN TESTED* IF NOT ? CONTROL 
IS TRANSFERRED TO THE BEGINNING OF THIS SECTION. 

THUS ONE PASS OF THE PROGRAM INVOLVES DOING * 

1 * SUBTEST #1 ONCE 

2. DRIVE-DEPENDENT TESTS FOR ALL THE SELECTED 
DRIVES. 



10.0 ERROR REPORTING 

THE ERROR TABLE STARTING AT $ERRT8 CONTAINS 
INFORMATION PERTAINING TO EVERY ERROR THAT CAM 
OCCUR* EACH ITEM IN THE TABLE CONSISTS OF FOUR 
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ENTRIES • 

A 9 El - THIS IS A POINTER TO THE ERROR MESSAGE TO 
BE TYPED OUT WHEN THE ERROR OCCURS. 

B* DH - THIS IS A POINTER TO THE DATA HEADER TO BE 
TYPED OUT. 

C. DT - THIS IS A POINTER TO THE DATA WHICH IS TO 

BE TYPED TYPED OUT UNDER THE HEADERS. 

D. - THIS IS A TERMINATOR SIGNIFYING THE END OF 
THE ITEM* 

THE ERROR CALL IS AN EMT INSTRUCTION WITH ITS LOWER 
BYTE ENCODED TO INDICATE THE ERROR NUMBER • THUS 
OR 1" WOULD BE (EMT+1 ) IE 104001 . 

EVERY ERROR CORRESPONDS TO AN ITEM IN THE ERROR 
TABLE. THUS "ERROR 14" WOULD CORRESPOND TO ITEM 14. 
AS FAR AS POSSIBLE, THE ERROR MESSAGES HAVE BEEN 
KEPT SHORT, BUT CLARITY IS NOT SACRIFICED FOR 
BREVITY. INSPITE OF THIS, IF THE USER FINDS A NEED, 
HE CAN LOOK UP THE ENTIRE ERROR MESSAGE IN THE ERROR 
ITEMS TABLE FOUND IN THE BEGINNING OF THE LISTINGS. 
THUS FOR "ERROR 14% "ITEM 14" IN THE ITEM TABLE CAN 
BE LOOKED UP. WHEN THE ERROR INSTRUCTION IS 
EXECUTED A TRAP OCCURS TO THE ERROR HA LOCATED 
AT SERROR WHICH PROCESSES THE ERROR CALL. SEE SEC 
12,3 



11 .0 ERROR INTERPRETATION 

WHENEVER AN ERROR MESSAGE IS PRINTED OUT, ALL 
REGISTERS AND OTHER DATA PERTAINING TO THE ERROR ARE 
ALSO GIVEN. RKDS, RKER. . . RKBA INDICATE THE CONTENTS 
OF THE CORRESPONDING REGISTERS AT THE TIME OF ERROR. 

EVERY ERROR MESSAGE CONTAINS A PC. THIS PC 
INDICATES THE POSITION IN PROGRAM WHERE THE ERROR 
CALL IS LOCATED. THE ERROR MESSAGE, BECAUSE OF 
PRACTICAL CONSIDERATIONS IS MADE SHORT AND 
MEANINGFUL. THE USER IS ADVTO LOOK UP THE PC 
IN THE PROGRAM LISTING, WHERE HE WILL FIND MORE 
INFORMATION ABOUT THE ERROR. IN MANY INSTANCES, A 
SINGLE FAULT WILL GIVE RISE TO MORE THAN ONE ERROR 
REPORT. A LITTLE DELIBERATION AND CAREFUL 
EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY VERY 
HELPFUL IN PINPOINTING THE FAULT. A BRIEF 
EXPLANATION OF WHAT IS BEING CHECKED IN THE SUBTEST 
IS GIVEN AT THF. BEGINNING OF EVERY SUBTEST. ALL THE 
NUMBERS GIVEN WITH ERROR MESSAGES ARE IN OCTAL, 



12.0 HANDLERS AND COMMON ROUTINES 
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SEQ 0013 



THE COMPOSED ROUTINES USED IN THE PROGRAM ARE 
CALLED IN TWO WAYS • 

A. AS A SUBROUTINE THROUGH 1 JSR 1 CALL 

B* THROUGH A 1 TRAP ' HANDLER 

12.1 TRAP HANDLER 

MANY COMMONLY USED ROUTINES IN THE PROGRAM ARE 
CALLED USING THE TRAP INSTRUCTION AND THE 1 TRAP 1 
HANDLER . THE LOWER BYTE OF THE TRAP INSTRUCTION IS 
ENCODED DIFFERENTLY FOR DIFFERENCT ROUTINES. THE 
TRAP HANDLER IS LOCATED AT 1 STRAP 1 . WHEN A CALL FOR 
A ROUTINE IS EXECUTED , A TRAP OCCURS TO THE HANDLER 
ARAP 8 . THE HANDLER PICKS UP THE LOWER BYTE OF 
THE " CALL INSTRUCTION* AND USES IT TO FGRWt THE 
STARTING ADDRESS OF THE ROUTINE TO GO TO FOR 
SERVICE* 



12*2 SCOPE HANDLER 

THE «lOT a TRAP IS USED BY THE 1 SCOPE 1 STATEMENT . 
WHEN 1 SCOPE 1 IS EXECUTED , AN IOT TRAP OCCURS TO 
MEMORY LOCATION 'SSCOPE 1 * THE SCOPE HANDLER STARTS 
AT SSCOPE. DEPENDING ON THE SWITCH SETTINGS THE 
HANDLER DECIDES TO LOOP ON TEXT, INHIBIT ITERATIONS 
ETC. THERE ARE CERTAIN POINTERS AND FLAGS WHICH ARE 
ADJUSTED. THUS, IT IS NOT ADVISABLE START THE 
PROGRAM AT hUY GIVEN LOCATION SINCE THE VARIOUS 
POINTERS AND FLAGS MAY NOT BE CORRECTLY ADJUSTED. 

12.3 ERROR HANDLER 

AN EMT TRAP INSTRUCTION IS USED BY THE ERROR CALL* 
THE LOWER BYTE IS ENCODED TO GIVE DIFFERENT LRROR 
CALLS. (EX: ERROR 1 = 104000+1 ; ERROR 16 
104000+16) . WHEN THE ERROR STATEMENT IS EXECUTED, A 
TRAP OCCURS TO MEMORY LOCATION 1 $ERROR 1 . THE ERROR 
HANDLER IS LOCATED AT ' SERROR ' . THE HANDLER FORMS 
THE POINTER TO ERROR TABLE, WHICH IS USED IF AN 
ERROR MESSAGE IS TO BE TYPED OUEPENDING ON THE 
SWITCH SETTINGS, A DECISION ABOUT HALTING ON ERROR, 
INHIBITING TYPEOUT, LOOPING ON ERROR ETC. IS MADE. 
IF AN ERROR MESSAGE IS TO BE TYPED OUT AN EXIT IS 
MADE TO THE ERROR MESSAGE TYPEOUT ROUTINE LOCATED AT 
1 $ERRTYP 8 . 



12*4 CONTROL RESET ROUTINE 

THE CALL FOR THIS ROUTINE IS "CNT. RESET" AND IS AN 
ENCODED s TRAP 1 INSTRUCTION. WHEN "CNT. RESET" IS 

EXECUTED THE CONTROL RESET ROUTINE STARTING AT 



i 
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SEQ 0014 



"CN.RST" IS ENTERED. A CONTROL RESET IS ISSUED 
THE PROGRAM WAITS TILL THE CONTROL READY SETS, ON 
WHICH THE ROUTINE IS EXITED. IF CONTROL READY DOES 
NOT SET WITHIN A CERTAIN TIME AN ERROR IS REPORTED. 
THE PC TYPED OUT IS THE LOCATION WHERE THE 
"CNT * RESET" CALL IS LOCATED. THE WAITING TIME IS 
2.8 MS FOR 1 1/20 AND 560 US FOR 11/45 WITH BIPOLAR 
MEMORY. 

12.5 CONTROL READY ROUTINE 

THIS ROUTINE lb CALLED BY » CNT. RDY" (AN ENCODED 
1 TRAP 1 INSTRUCTION) AND IS LOCATED AT "CN.RDY" * THE 
ROUTINE WAITS FOR THE CONTROL READY TO SET AND WHEN 
IT DOES, EXITS IF CONTROL READY DOES NOT SET 
WITHIN A SPECIFIED TIME AN ERROR MESSAGE IS GIVEN 

CNTRL RDY DIDN'T SET 

PC = XXXXXX RKCS = YYYYYY 

THE PC IS THE LOCATION AT WHICH THE "CNT. RDY" CALL 
IS LOCATED. THE WAITING TIME IS 949 ,4S FOR 11/20 
AND 189 MS FOR 1 1/45 WITH BIPOLAR MEMORY . 



12*5 DRIVE RESET ROUTINE 

THE DRIVE - RESET ROUTINE IS LOCATED AT "DRESET" AND 
IS CALLED BY A " JSR" . IT ISSUES A DRIVE RESET AND 
WAITS FOR THE R/W/S RDY TO SET t ON WHICH THE ROUTINE 
IS EXITED. THE WAITING TIME IS 4959 MS FOR 11/20 
AND 991 MS FOR 11/45 WITH BIPOLAR MEMORY. 

12.7 TIME DELAY ROUTINE 

THIS ROUTINE PROVIDES A VARIABLE TIME DELAY. THE 
CALL IS DELAY t N WHERE N=1 TO 177777 (OCTAL) TIME 
DELAY PROVIDED= 7.5 TIMES( X ) N MICRO SECS FOR 
11/20, 1 .5N US FOR 11/45 (N CONVERTED TO DECIMAL 
BEFORE COMPUTING DELAY) IF THE USER WANTS TO CHANGE 
THE DELAY AT ANY POINT IT CAN BE DONE BY SIMPLY 
CHANGING VARIABLE »N' . 



12.8 WAIT FOR INTERRUPT ROUTINE 

THIS ROUTINE PROVIDES A VARIABLE TIME LIMIT DURING 
WHICH RK1 1 INTERRUPT MAY OCCUR. THE IS 

WAT. INT .N N=1 TO 1777777 (OCTAL) 

WAITING TIMERS TIMES( X ) N US FOR 11/20, 1.5N US 



FOR 11/45 UPON ENTERING THE ROUTINE CPU PRIORITY IS 
DROPPED SO THAT RK1 1 CAN INTERRUPT. 
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SEO 001 S 



12.9 OTHER ROUTINES 



THERE ARE OTHER COMMONLY USED ROUTINES AS LISTED 
BE LOW . 

$TYPE: 

TYPE ROUTINE FOR TYPING OUT ASCII STRINGS* 
LOCATED AT »$TYP£ S 
CALLED BY 88 TYPE 81 



$typoc; 

ROUTINE FOR TYPING OUT OCTAL NUMBERS* 
LOCATED AT »$TYPQC® 
CALLED BY "TYPOC" 



STYPDS: 

ROUTINE FOR TYPING OUT DECIMAL NUMBERS » 
LOCATED AT *• STYPDS 85 
CALLED BY "TYPDS" 



SRDLIN: 

ROUTINE FOR INPUTTING ASCII STRINGS FROM TTY* 
LOCATED AT " SRDLIN 15 
CALLED BY "RDLIN" 

$ERRTYP » 

ROUTINE FOR TYPING OUT ERROR MESSAGES * 
LOCATED AT SERRTYP 
CALLED BY "JSR SERRTYP 88 

SPWRDN: 

ROUTINE FOR HANDLING POWER FAILURE. 
LOCATED AT $PWRDN 

CALLED WHEN T HERE IS A POWER FAILURE. 
SPWRUPs 

ROUTINE FOR HANDLING POWER UP AFTER A POWER FAIL. 
LOCATESPWRUP 

CALLED WHEN POWER RETURNS AFTER HAVING GONE DOWN • 



13*0 UNEXPECTED TIMEOUTS AND RK1 1 INTERRUPTS 

WHEN AN UNEXPECTED TIMEOUT OCCURS, THE PC AT WHICH 
TIME OUT OCCURED IS TYPED OUT AND THE PROGRAM HALTS, 
IF IT IS INTACT t IT CAN BE RESTARTED BY PRESSING 
CONTINUE. 

IF AN UN£XPEC~:D RK11 INTERRUPT OCCURS THE PROGRAM 
TYPES OUT THE PC AT WHICH THE INTERRUPT CAME IN AND 
THEN HALTS * PRESSING CONTINUE WOULD RESTART THE 
PROGRAM PROfH BEGINING* SW 9- LOOPING CAITY IS 
PROVIDED AS A TROUBLE SHOOTING AID. 
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14.0 QUICK VERIFYING MODE 



THE FIRST PASS OF THE PROGRAM IS A QUICK VERIFYING 
MODE. ALL THE TESTS ARE DONE ONLY ONCE, ON 
SUBSEQUENT PASSES THE TESTS ARE ITERATED (NORMALLY 
50 TIMES f 5 IN SOME CASES) . THUS THE FIRST PASS 
TAKES A SHORTER TIME TO COMPLETE ? WHEREAS SUBSEQUENT 
PASSES TAKE fWORE TIME, 



852 
853 
854 
855 
856 
857 
858 
859 



860 






861 


.TITLE 


MD-1 1-CZRKKF, RK1 1 BASIC LOGIC TEST 2 


862 


;*COPYRIGHT (C) 1974, 1977 


863 


; *DIGI TAL EQUIPMENT CORP. 


864 


; *MAYNARD » MASS. 01754 


865 


; * 




866 


;*PROGRAM BY JIM KAPADIA 


867 


; * 


PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 


868 


:*THIS 


869 


; *PACKAGE (MAINDEC-1 1 -D2QAC-C3) , JAN 19, 1977. 


870 


; * 




871 


; ^PROGRAM REVISED BY TOM SAWYER, MARCH, 1976 


872 


;*REVISED BY CHUCK HESS, AUGUST, 1976 


873 


.SBTTL 


OPERATIONAL SWITCH SETTINGS 


874 


; * 




875 


; * 


SWITCH USE 


876 


; * 




877 


; * 


15 HALT ON ERROR 


878 


; * 


14 LOOP ON TEST 


879 


; * 


13 INHIBIT ERROR TYPEOUTS 


880 


; * 


12 CYCLE ON ERROR TO PREVIOUS 'SCOPE' STATEMENT 


881 


; * 


1 1 INHIBIT ITERATIONS 


882 


; * 


10 TESTING ON SIMULATOR 


883 


; * 


9 LOOP ON ERROR 


884 


; * 


8 LOOP ON TEST IN SWR<7 : 0> 


885 


; * 


6 DROP THE DRIVE IF MORE THAN 5 ERRORS 



886 
887 
888 
889 
890 

891 ;YOU ARE ADVISED TO READ THE DOCUMENT BEFORE USING THIS PROGRAM. 

892 

893 ;0N GETTING AN ERROR REFER TO THE LISTINGS AT THE PC POINTED 
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SEQ 0017 



894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
91 1 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 



;OUT IN THE ERROR MESSAGE. ADJACENT ERROR MESSAGES IF FOLLOWED 
; CAREFULLY COULD LEAD TO AN EASY PINPOINTING OF THE FAULT 



000000 

000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 



000000 
000040 

000100 
000140 
000200 
000240 
000300 
000340 



isBTTL BASIC DEFINITIONS 



;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 



001 100 


STACK= 


1 100 






.EOUIV 


EMT, ERROR 


; ; BASIC DEFINITION OF ERROR CALL 




.EGUIV 


IOT.SCOPE 


; ;BASIC DEFINITION OF SCOPE CALL 




: -MISCELLANEOUS DEFINITIONS 


00001 1 


HT = 


1 1 


; ;CODE FOR HORIZONTAL TAB 


000012 


LF = 


12 


; ;CODE FOR LINE FEED 


000015 


CR = 


15 


; ;CODE FOR CARRIAGE RETURN 


000200 


CRLF = 


200 


;;CODE FOR CARRIAGE RETURN-LINE FEED 


177776 


PS = 


177776 


-PROCESSOR STATUS WORD 




.EOUIV 


PS, PSW 




1 77774 


STK LMT = 


177774 


; ;STACK LIMIT REGISTER 


177772 


PIRO= 


177772 


; ; PROGRAM INTERRUPT REQUEST REGISTER 


177570 


DSWR = 


177570 


; ; HARDWARE SWITCH REGISTER 


177570 


DDISP= 


177570 


; ; HARDWARE DISPLAY REGISTER 



;*GENERAL PURPOSE REGISTER DEFINITIONS 



R0 = 


%0 




GENERAL REGISTER 


R1 = 


%1 




GENERAL REGISTER 


R2 = 


%2 




GENERAL REGISTER 


R3 = 


%3 




GENERAL REGISTER 


R4= 


564 




GENERAL REGISTER 


R5= 


%5 




GENERAL REGISTER 


R6 = 


%6 




GENERAL REGISTER 


R7 = 


%7 




GENERAL REGISTER 


SP = 


%6 




STACK POINTER 


PC = 


%7 




PROGRAM COUNTER 


;*PRI0RITY LEVEL DEFINITIONS 


PR0 = 







PRIORITY LEVEL 


PR 1 = 


40 




PRIORITY LEVEL 1 


PR2 = 


100 




PRIORITY LEVEL 2 


PR3 = 


140 




PRIORITY LEVEL 3 


PR4 = 


200 




PRIORITY LEVEL 4 


PR5 = 


240 




PRIORITY LEVEL 5 


PR6 = 


300 




PRIORITY LEVEL 6 


PR7 = 


340 




PRIORITY LEVEL 7 



"SWITCH REGISTER* SWITCH DEFINITIONS 



940 


100000 


SW15 = 


100000 


941 


04 00 0C 


SW1 4 = 


40000 


942 


020000 


SW13 = 


20000 


943 


01 0000 


SW1 2 = 


10000 


944 


004000 


SW1 1 = 


4000 


945 


002000 


SW10 = 


2000 


946 


00 1 000 


SW09 = 


1000 


947 


000400 


SW08- 


400 


948 


000200 


SW07 = 


200 


949 


000100 


SWC6 = 


100 
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950 000040 SW05= 40 

951 000020 SW04= 20 

952 000010 SW03= 1 

953 000004 SW02= 4 

954 00 0002 SWO 1 = 2 

955 000001 SWOO= 1 

955 .EOUIV SW09.SW9 

957 .EOUIV SW08.SW8 

958 .EOUIV SW07.SW7 

959 .EOUIV SW06.SW6 

960 .EOUIV SW05.SW5 

961 . EOUIV SW04.SW4 

962 .EOUIV SW03.SW3 

963 . EOUIV SW02.SW2 

964 . EOUIV SW01 ,SW1 

965 .EOUIV SW00 r SWO 
966 

967 ; *DAT A BIT DEFINITIONS (BITOO TO BIT15) 

968 100000 BIT15= 1 00000 

969 040000 BIT14= 40000 

970 020000 BIT13= 20000 

971 01 0000 BIT12= 10000 

972 004000 BIT1 1 = 4000 

973 002000 BIT10= 2000 

974 001000 BIT09= 1000 

975 000400 BIT08= 400 

976 000200 BIT07= 200 

977 000100 BIT06= 100 

978 000040 BIT05= 40 

979 000020 3IT04= 20 

980 00001 BIT03= 1 
901 0000C4 BIT02= 4 
982 000002 BIT01 = 2 
583 000001 BITOO= 1 

984 . EOUIV BIT09, BIT9 

S85 .EOUIV BIT08.BIT8 

986 .EOUIV BIT07.BIT7 

987 .EOUIV BIT06, BIT6 

988 . EOUIV BIT05.BIT5 

989 .EOUIV BIT04.BIT4 
9S0 .EOUIV BIT03.BIT3 

991 .EOUIV BIT02.BIT2 

992 .EOUIV BIT01 , BIT1 

993 .EOUIV BITOO.BITO 
994 

995 ;*BASIC "CPU" TRAP VECTOR ADDRESSES 

996 000004 ERRVEC= 4 ; ; T I M E OUT AND OTHER ERRORS 

997 000010 RESVEC= 10 ; ; RESERVED AND I LLEGAL INSTRUCTIONS 

998 000014 TBITVEC=14 ; ; " T " BIT 

999 000014 TRTVEC= 14 ; ; TRACE TRAP 

1000 000014 BPTVEC= 14 ; ; BREAKPOINT TRAP (BPT) 

1 001 000020 IOTVEC= 20 ; ; I NPUT/OUT PUT TRAP ( IOT) **SCOPE** 

1 002 000024 PWRVEC= 24 ; ; POWER FAIL 

1003 000030 EMTVEC= 30 ; ; EMU LATOR TRAP (EMT) **ERROR** 

1004 000034 TRAPVEC=34 ; ; "TRAP" TRAP 

1005 000060 TKVEC= 60 ; ; TTY KEYBOARD VECTOR 
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1006 




000064 


1007 




000240 


1008 






1009 






1010 




000000 


101 1 






1012 






1013 






1014 




0001 74 


1015 


000174 


000000 


1016 


000176 


000000 


101? 






1018 


oooaoo 


000137 


1019 






1020 






1021 






1022 






1023 




000204 


1024 




000046 


1025 


000048 


020740 


1026 




000052 


1027 


000053 


000000 


1028 




000204 
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; ; TTY PRINTER VECTOR 
; ; PROGRAM INTERRUPT REQUEST VECTOR 



TPVEC« 64 
PIRQVEC*240 
. SBTT L TRAP CATCHER 

.=0 

;*ALL UNUSED LOCATIONS FROM 4 - 776 CON 7 /.IN A " .+2, HALT" 
;*SEOUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•.•LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 
.■174 

OISPREG: .WORD ; ; SOFTWARE DISPLAY REGISTER 

SWREG: .WORD ; ; SOFTWARE SWITCH REGISTER 

. SBTT L STARTING ADDRESS(ES) 

JMP WSTART ; ;JUMP TO STARTING ADDRESS OF PROGRAM 

.SBTTL ACT 1 1 HOOKS 

•HOOKS REQUIRED BY ACT11 

$SVPC». 5SAVE PC 

.=46 

SENDAD ; ; 1)SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

.■52 

.WORD ; ;2)SET L0C.52 TO ZERO 

.»$SVPC J ; RESTORE PC 
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1029 






.SBTTL 


COMMON 


TAGS 




1030 














1031 






• j ***** 




****** ***«**^****i8i*s8!i««**Wi!t**************i»***i****** 


1032 






;*THIS 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


1033 






;*USED 


IN THE PROGRAM. 




1 034 














1035 




001 100 




.=1 100 






1036 


001 1 00 




SCMTAG: 




; ; START OF COMMON TAGS 


1037 


001100 


000000 


SPASS: 


. WORD 


; ICONTAINS PASS COUNT 


1038 


001 1 02 


000 


STSTNM: 


.BYTE 


; ; CONTAINS THE TEST NUMBER 


1039 


001 1 03 


000 


SERFLG: 


. BYTE 


; ; CONTAINS ERROR FLAG 


1040 


001 104 


000000 


SICNT : 


. WORD 


; .'CONTAINS SUBTEST ITERATION COUNT 


1041 


001 106 


000000 


SLPADR: 


. WORD 


; ; CONTAINS SCOPE LOOP ADDRESS 


1042 


001 1 10 


000000 


SLPERR: 


. WORD 


-CONTAINS SCOPE RETURN FOR ERRORS 


1043 


001 1 12 


000000 


SERTTL: 


. WORD 


; ;CONTAINS TOTAL ERRORS DETECTED 


1044 


001 1 14 


000 


SITEMB: 


.BYTE 


; ; CONTAINS ITEM CONTROL BYTE 


1045 


001 115 


001 


SERMAX: 


. BYTE 


1 ; ;CONTAINS MAX. ERRORS PER TEST 


1046 


001 1 16 


000000 


SERRPC: 


.WORD 


; : CONTAINS PC OF LAST ERROR INSTRUCTION 


1047 


001 1 20 


000000 


SGDADR: 


.WORD 


" ; CONTAINS ADDRESS OF 1 GOOD' DA T A 


1048 


001122 


000000 


SBDADRJ 


. WORD 


; ; CONTAINS ADDRESS OF 'BAD 1 DATA 


1049 


001 124 


000000 


SGDDAT : 


.WORD 


; ; CONTAINS 'GOOD' DATA 


1050 


001126 


000000 


SBDDAT: 


.WORD 


; ; CONTAINS 'BAD' DATA 


1051 


001130 


000000 




.WORD 


; 5 RESERVED — NOT TO BE USED 


1052 


001 1 32 


000000 




• WORD 







1053 


001134 


000 


SAUT08: 


.BYTE 


; ; AUTOMATIC MODE INDICATOR 


1054 


001 1 35 


000 


SINTAG: 


.BYTE 


; ; INTERRUPT MODE INDICATOR 


105S 


001136 


000000 




.WORD 







1056 


001 140 


177570 


SWR: 


. WORD 


DSWR ; 


ADDRESS OF SWITCH REGISTER 


1057 


001 142 


177570 


DISPLAY: . WORD 


DDISP ? 


ADDRESS OF DISPLAY REGISTER 


1058 


001144 


177560 


STKS! 


177560 




TTY KBD STATUS 


1059 


001 146 


177562 


$TKB: 


177562 




TTY KBD BUFFER 


1060 


001150 


177564 


STPS: 


177564 




TTY PRINTER STATUS REG. ADDRESS 


1061 


001152 


177566 


$TPB: 


177566 




TTY PRINTER BUFFER REG. ADDRESS 


1062 


001 154 


000 


SNULL : 


.BYTE 


o ; 


CONTAINS NULL CHARACTER FOR FILLS 


1063 


001 155 


002 


SFILLS: 


.BYTE 


2 


CONTAINS # OF FILLER CHARACTERS REQUIRED 


1064 


001 156 


012 


SFI LLC : 


. BYTE 


12 ; 


INSERT FILL CHARS. AFTER A "LINE FEED 9 


1065 


001157 


000 


$TPFLG: 


.BYTE 


; 


" TERMINAL AVAILABLE" FLAG ( BIT<07>*0»YES) 


1066 


001160 


000000 


SREGAD: 


.WORD 


o ; 


CONTAINS THE ADDRESS FROM 


1067 












WHICH (SREGO) WAS OBTAINED 


1068 


001162 


000000 


SREGO: 


.WORD 





CONTAINS ( ( SREGAD )+0 ) 


1069 


001164 


000000 


SREG1 : 


. WORD 


; 


CONTAINS ( ( SREGAD )+2 ) 


1070 


001 1 66 


000000 


SREG2: 


. WORD 


; 


CONTAINS ( ( SREGAD ) +4 ) 


1071 


001 1 70 


000000 


SREG3 : 


. WORD 


; 


CONTAINS ( ( SREGAD )+6 ) 


1072 


001 1 72 


000000 


$REG4 : 


. WORD 


; 


CONTAINS { (SREGAD)+10) 


1073 


001 174 


000000 


SREG5: 


. WORD 


; 


CONTAINS ( ($REGAD)+12) 


1074 


001 1 76 


000000 


SREG6: 


. WORD 





CONTAINS ( ($REGAD)+14) 


1075 


001200 


000000 


$REG7 : 


. WORD 


; 


CONTAINS ( ( $REGAD)+16) 


1076 


001202 


000000 


SREG10: 


. WORD 


; 


CONTAINS ( ($REGAD)+20) 


1077 


001204 


000000 


SREG1 1 : 


. WORD 


; 


CONTAINS ( (SREGAD)+22) 


1078 


001206 


000000 


iTIMES: 







MAX. NUMBER OF ITERATIONS 


1079 


001210 


000000 


SESCAPE 


:0 




ESCAPE ON ERROR ADDRESS 


1080 


001212 


077 


SQUES: 


.ASCII 


/?/ \ 


QUESTION MARK 


1081 


001213 


015 


SCRLF: 


.ASCII 


<15> 


CARRIAGE RETURN 


1082 


001214 


000012 


$LF: 


.ASCIZ 


<12> ; 


LINE FEED 


1083 








1084 


00121S 


005015 051104 


0531 11 MSG1 : 


.ASCIZ 


<15><12>/DRIVE PRESNT/ 
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1 085 


001 224 


020105 


051 1 20 


1 086 


001 232 


0521 16 


000 


1 087 




001236 




1 088 


001236 


00501 5 


047516 


1089 


001244 


000 




1 090 








1091 


001 245 


015 


041412 


1092 


001252 


051040 


054504 


1 093 


001250 


0421 1 1 


023516 


1 094 


001266 


042523 


000124 


1095 








1096 


001272 


005015 


051 104 


1097 


001300 


020105 


000 


1098 








1099 


001303 


015 


040412 


1 100 


001310 


042040 


053122 


1101 








1 102 


001315 


040 


051 104 


1 103 


001322 


006504 


000012 


1 104 








1 105 








1 108 








1 107 








1 108 








1 109 








1110 








1111 








1112 


001326 


177400 




1113 


001330 


177402 




1114 


001332 


177404 




1 115 


001334 


177406 




1116 


001336 


177410 




1117 


001340 


177412 




1118 


001342 


177416 




1119 








1 120 








1121 








1 122 








1 123 








1 124 








1 125 


001344 


000000 




1 126 


001346 


000000 




1 127 


001350 


000000 




1 128 


001 352 


000000 




1 129 








1 130 








1131 


001 354 


000000 




1 132 








1 133 


001356 


000000 




1 134 


001360 


000000 




1 135 


001362 


000000 




1 136 


001364 


000000 




1 137 


001366 


000000 




1 138 


001370 


000000 




1 139 








1 140 









042516 MSG2 : 



0521 16 
042040 
0201 24 



053111 MSG4 : 



0461 14 
123 



050117 MSG6: 



.EVEN 

.ASCIZ <15><12>/N0NE/ 



.ASCIZ <15><12>/CNT RDY DIDN'T SET/ 

.ASCIZ <15><12>/DRIVE / 

.ASCII <15><12>/ALL DRVS/ 

.ASCIZ / DR0PD/<15><12> 
. EVEN 



RK1 1 REGISTERS 

IF FOR ANY REASON THE REGISTER ADDRESSES ARE DIFFERENT FROM THESE 
(GIVEN BELOW) , THE CONTENTS OF THE APPROPRIATE POINTERS SHOULD BE 
MODIFIED SO THAT THE CORRECT ADDRESS IS USED. 





• EVEN 


RKDS: 


1 77400 


RKER: 


177402 


3KCS: 


177404 


RKWC : 


177406 


RKBA: 


177410 


RKDA: 


177412 


RKDB: 


177416 



; TAGS AND GENERAL DATA AREA 



SIMUL: 
FTITLE: 

drivad: 

DRVDON: 



INDX1 : 
INDX2 : 
COUNT i 
COUNT 1 : 
TIMER: 
EFLG1 : 



; FLAG TO BE SET TO 1 WHEN ON SIMULATOR 

; FLAG FOR PRINTING PROGRAM TITLE 

; CONTAINS ADDRESS OF THE DRIVE UNDER TEST 

;CONTAINS THE NUMBER OF DRIVES CHECKED. 

; IT IS INCREMENTED EACH TIME THE TESTS FOR 

;A DRIVE IS COMPLETED. 

; CONTAINS THE POINTER TO THE DRIVE FLAG (DRIVEO 

;-DRIVE7) OF THE DRIVE TO BE CHECKED NEXT. 

; GENERAL INDEX FOR KEEPING COUNT 

; GENERAL INDEX 

; GENERAL COUNT REGISTER 

; COUNT REGISTER USED FOR 'DRESET' SUBROUTINE 
; TIMER REGISTER 

;SET, TO INDICATE A PARTICU LAR 
; ERROR CONDITION 
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1 141 


001372 


0001 00 


1 142 


001374 


001000 


1 143 


001 376 


014500 


1 144 


001400 


000200 


1 145 






1 146 






1 147 






1 148 






1 149 


001402 


000220 


1 150 






1151 






1 152 


001404 


000000 


1 153 


001406 


000000 


1 154 






1 155 






1 156 


001410 


000000 


1 157 






1 158 


001412 


000000 


1 159 






1 160 






1 161 






1 162 






1 163 






1 164 






1 165 






1 166 






1 167 






1 168 






1 169 






1 170 


001414 


000000 


1171 


001416 


000000 


1 1 72 


001420 


000000 


1 173 


001422 


000000 


1 174 


001424 


000000 


1 175 


001425 


000000 


1 176 


001430 


000000 


1 177 


001432 


000000 


1 178 






1 179 


001434 


000000 


1 180 


001436 


000000 


1 181 


001440 


000000 



SEEKO: 
SEEK 1 : 
SEEK2 : 
RKPRI : 



100 
1000 
14500 
200 



RKVEC: 220 



FFLAG: 
ODDEVN: 



DDPCH: 
DRIVS: 



; CONTAINS ADDRESS OF CYLINDER 2 

; CONTAINS ADDRESS OF CYLINDER 20 

; CONTAINS ADDRESS OF CYLINDER 312 

^CONTAINS THE CPU LEVEL AT WHICH 

; RK1 1 NORMALLY INTERRUPTS. THIS WORD 

;SHOULD BE CHANGED IF RK1 1 IS DESINGATED 

;A BR LEVEL GTHER THAN 5. E.G. IF IT IS CHANGED 

;T0 6, THIS WORD SHOULD BE CHANGED TO 240. 

; CONTAINS THE NORMAL VECTOR ADDRESS TO WHICH 

;RK1 1 INTERRUPTS. IF THIS IS NOT SO, CHANGE 

;THIS WORD TO CONTAIN MODIFIED VECTOR ADDRESS. 

USED TO DETERMINE WHICH OF RK-05F DRIVES ACTIVE 
IF EVEN DRIVE 
-1 IF ODD DRIVE 

IF PROGRAM LOADED FROM RK05. CONTAINS 
ADDRESS OF DRIVE WITH RKDP PACK 
CONTAINS THE NUMBER OF DRIVES PRESENT 



I THE FLAGS BELOW (BIT 0) ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE 
; IS PRESENT AND IS TO BE TESTED. BIT 12, IF SET, INDICATES THAT THE DRIVE 
;WAS DROPPED AFTER MAXIMUM ALLOWABLE NUMBER OF ERRORS OCCURED ON THAT 
;DRIVE (SW 6 SET) . 

;IF MORE THAN 5 ERRORS OCCUR IN THE HARDWARE POLLING TEST ( LAST) 
; THEN ALL DRIVES ARE DROPPED. BUT BIT 12 IS NOT SET. 

WHEN DRIVE PRESENT 



DRIVO 





; FLAG SET TO 


DRIV1 





; FOR DRIVE 1 


DRIV2 





; FOR DRIVE 2 


DRIV3 





; FOR DRIVE 3 


DRIV4 





; FOR DRIVE 4 


DRIV5 





;FOR DRIVE 5 


DRIV6 





;FOR DRIVE 6 


DRIV7 





;FOR DRIVE 7 


T56FLG: 




PHYDRV: 




SIZYET: 
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1 182 
1 183 

I 184 

II 85 
1 186 
1 187 
1 188 
1 189 
1 190 
1191 
1 192 
1 193 
1 194 
1 195 

1196 001442 

1 197 

1198 

1 199 

1200 

1201 

1 202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

121 1 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 



MAC V 1 1 30A(1052) 21 
ERROR POINTER TABLE 



. SBTT L ERROR POINTER TABLE 



-FEB-78 08: 58 PAGE 24 



SEO 0023 



*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR . 

♦ THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN nrrBT ^ 1CklT 

■••LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

•NOTE1: IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC) . 

®N0TE2' EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS : 



EM 
DH 
DT 
DF 



POINTS TO THE ERROR MESSAGE 

POINTS TO THE DATA HEADER 

POINTS TO THE DATA 

; ; POINTS TO THE DATA FORMAT 



SERRTB: 



THE ERROR ITEMS TABLE CONSISTS OF ALL THE POSSIBLE ERROR MESSAGES 
USED IN THIS PROGRAM. AN ERROR CALL IN THE PROGRAM CORRESPONDS TO 
THE ITEM NUMBER IN THE ERROR TABLE. THUS 'ERROR 1' IN THE 

PROGRAM CORRESPONDS TO ' ITEM 1' IN THE ERROR TABLE . 
> EM # # *> is THE POINTER TO THE ERROR MESSAGE WHICH WILL BE TYPED 
OUT IN CASE THAT ERROR WERE TO OCCUR. THUS FOR 1 ERROR 1' THE ERROR 
MESSAGE TYPE OUT WILL BE 'TIME OUT ON RK11 REG'. 

« D H###' is THE POINTER TO THE HEADER BLOCK WHICH WILL BE TYPED OUT 
IMMEDIATELY AFTER THE ERROR MESSAGE. 

> D T##*' SERVES AS A POINTER TO THE MEMORY LOCATIONS WHERE 

THE INFORMATION RELEVANT TO THE ERROR TYPE OUTS (LIKE PC, CONTENTS 

OF RKCS ETC. ) WILL BE PICKED UP FROM. 

THE LAST ROW CONTAINING '0' SERVES AS A TERMINATOR. 

EXAMPLE : 

IF ON RUNNING THIS PROGRAM A TIMEOUT WERE TO OCCUR ON ADDRESSING RKDS 
(177400), BECAUSE OF SOME FAULT, THE FOLOWING TYPEOUT WOULD 
OCCUR ON THE TELETYPE. 

TIME OUT ON RK1 1 REG 

PC REG 
###### 177400 

NOTE THAT WOULD BE THE ACTUAL PC WHERE 'ERROR 1' IS LOCATED. 

•THE ERROR HANDLER IS LOCATED AT ' SERROR 1 . THE ERROR CALL IS AN 'EMT' 
I INSTRUCTION WITH ITS LOWER BYTE ENCODED TO PROVIDE INDEXING TO THE 
; ITEMS IN THE ERROR TABLE. 
;THUS ' ERROR 1 ' IS 104001 

'ERROR 103' IS 104126 ETC. 



; ERROR ITEMS TABLE 
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SEQ 0024 



238 

239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 



001442 
001444 
001446 
001450 



001452 
001454 
001456 
001460 



001462 
001464 
001466 
001470 



001472 
001474 
001476 
001500 



001502 
001504 
001506 
001510 



001512 
001514 
001516 

001520 



001522 
001524 
001526 
001530 



001532 
001534 
001536 
001540 



025402 
032327 
031742 
000000 



027253 
0321 13 
031762 
000000 



025427 
032047 
031732 
000000 



025456 
032213 
031724 
000000 



025470 
032155 
031762 
000000 



025500 
032155 
031762 
000000 



025510 
032213 
031 724 
000000 



025531 
032327 
031742 
000000 



1 

EM12 
DH44 
DT20 





EM70 
DH14 
DT26 





EM 16 

DH4 

DT2 





EM21 
DH34 
DT 1 





EM30 
DH30 
DT26 





EM31 
DH30 

DT26 



EM32 
DH34 

DT 1 



10 

EM33 
DH44 

DT20 




; 1 SIN 1 IS SET 

; PC RKCS RKER RKDS RKDA 

;$ERRPC SREGO SREG1 $REG2 SREG3 



; CNTRL RDY DIDN'T SET ON READ/FMT FROM DISK ADDRESS 
;PC RKCS RKER RKWC 

;$ERRPC SREGO SREG1 SREG2 



; RKDA WRONG AFTER SSE 
;PC EXPCT RECVD 

;$ERRPC SREGO $REG1 



RKDS ERROR 
PC RKDS 
SERRPC SREGO 



' DPL 1 BIT SET, 
PC RKCS 
SERRPC SREGO 



CHECK DRIVE POWER 
RKER RKDS 

SREG1 SREG2 



; 1 DRU ' BIT SET , CHECK DRIVE 
;PC RKCS RKER RKDS 

; SERRPC SREGO $REG1 SREG2 



1 ' RK05' BIT NOT SET 
; PC RKDS 
;$ERRPC SREGO 



; 'DRY' NOT SET 
;PC RKCS 

JSERRPC SREGO 



RKER 

SREG1 



RKDS 
SREG2 



RKDA 

SREG3 



MD-1 1-CZRKKF, RK1 1 BASIC LOGIC TEST 2 MACY11 30A(1052) 21-FEB-78 08:58 PAGE 26 
C2RKKF.P11 21-FEB-78 08:51 ERROR POINTER TABLE 



SEO 0025 



1 294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1 303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
131 1 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1 325 
1326 
1327 
1 328 
1329 
1330 
1331 
1332 
1333 
1 334 
1335 
1336 
1337 
1 338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 



001542 
001544 
001546 
001550 



001552 

001554 
001556 
001560 



001562 
001564 
001566 
C01570 



001572 
001574 
001576 

001 600 



001602 
001604 
001606 
001610 



001612 
001614 
001 61 5 
001 620 



001622 
001 624 
001 626 
001 630 



001632 
001634 
001636 
001640 



025551 
032213 
031724 
000000 



025570 

032231 
031 724 

000000 



025623 
032251 
031732 

000000 



025653 
032047 
031732 
000000 



025707 
032301 
031 732 
000000 



025747 
032213 
031 724 
000000 



025415 
032047 
031732 
000000 



026004 
032150 
031756 
000000 



EM34 
DH34 
DT1 



12 

EM35 

DH35 

DT1 



13 

EM36 
DH36 
DT2 




EM37 

DH4 
DT2 



15 

EM40 

DH40 

DT2 




EM41 

DH34 

DT1 



17 

EM13 
DH4 
DT2 




EM43 
DH21 
DT21 



; ' SDK' DID NOT SET 
; PC RKDS 
;$ERRPC SREGO 



; 'SEC COUNTR' DIDN'T COUNT TO 
; PC SEC-CNTR 
;$ERRPC SREGO 



; 'SEC COUNTR 1 DIDN'T 
;PC PRSNT-COUNT 
;$ERRPC SREGO 



INCREMENT 

NXT-COUNT 
SREG1 



; 'SECTOR COUNTER ' INCREMENTED WRONG 
; PC EXPCTD RECVD 

;$ERRPC SREGO $REG1 



; DIDN'T GET SC=SA FOR THIS SECTOR 
; PC SECTOR RKDS 

;$ERRPC SREGO $REG1 



; ERROR- ' R/W/S RLiY ' 
; PC RKDS 
;SERRPC SREGO 



SHOULD BE SET 



; RKBA ERROR 
;PC EXPCT 
;SERRPC SREGO 



RECVD 

$REG1 



; UNEXPECTED RK1 1 

;PC 

;$ERRPC 
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1350 

1 351 
1352 
1353 
1 354 
1 355 
1356 
1357 
1358 
1359 
1 360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1 368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1 382 
1383 
1384 
1385 
1386 
1 387 
1388 
1389 
1390 
1 391 
1392 
1393 
1394 
1395 
1 396 
1397 
1 398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 



001542 
001644 
001646 
001650 



001652 
001654 
001656 
001660 



001 662 
001664 
001 666 
001670 



001672 
001674 
001676 
001 700 



001 702 
001704 
001 706 
001710 



001712 
001714 
001716 
001 720 



001722 
001724 
001726 
001730 



001732 
001734 
001 736 
001740 



026036 
032327 
031742 
000000 



0261 12 
032327 
031742 
000000 



0261 60 
032155 
031 762 
000000 



026216 
032047 
031732 
000000 



026260 
032155 
031762 
000000 



026307 
032327 
031742 
000000 



026362 
032047 
031732 
000000 



026407 
032155 
031762 
000000 



21 

EM44 
DH44 
DT20 





EM45 
DH44 
DT20 



EM46 
DH30 
DT26 



24 

EM47 

DH4 
DT2 





EM50 
DH30 
DT26 


26 

EM51 
DH44 
DT20 



27 

EM52 

DH4 
DT2 




EM53 
DH30 
DT26 



; 1 CNTRL RDY 1 DIDN'T SET AFTER SEEK OR DRIVE RESET 
; PC RKCS RKER RKDS RKDA 

;$ERRPC SREGO $REG1 SREG2 SREG3. 



; 'ERR' OR 'HE' SET ON SEEK OR DRIVE RESET 
;PC RKCS RKER RKDS RKDA 

SERRPC SREGO $REG1 SREG2 SREG3 



; RKER BIT, ON SEEK OR DRIVE RESET 
;PC RKCS RKER RKDS 

;$ERRPC SREGO $REG1 SREG2 



;RKCS CHANGED AFTER FUNCTION WAS DONE 
;PC EXPCT RECVD 

;$ERRPC SREGO SREG1 



; ' R/W/S RDY ' DID NOT CLEAR 
;PC RKCS RKER RKDS 

;$ERRPC SREGO $REG1 SREG2 



; 1 R/W/S RDY ' DIDN'T SET AFTER SEEK OR DRIVE RESET 
;PC RKCS RKER RKDS RKDA 

; SERRPC SREGO SREG1 SREG2 SREG3 



; RKDA CHANGED AFTER SEEK 
; PC EXPCTD REGVD 

•.SERRPC SREGO SREG1 



; 'CNTRL RDY ' DIDN'T CLEAR AS GO WAS SET 
;PC RKCS RKER RKDS 

; SERRPC SREGO $REG1 SREG2 
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PI 1 21 


-FEB-78 


1406 






1 407 






1408 


001 742 


026452 


1 409 






1410 


001744 


032374 


141 1 






1412 


001746 


03 1 774 


1413 






1414 


001750 


000000 


1415 






1416 






1417 






1418 


001752 


026544 


1419 






1420 


001754 


032374 


1421 






1422 


001758 


03 1 774 


1423 






1424 


001760 


000000 


1425 






1426 






1427 






1428 


001762 


026623 


1429 


001784 


032503 


1430 






1431 


001766 


031 774 


1432 






1433 


001770 


000000 


1434 






1435 






1436 






1437 


001772 


026662 


1438 


001774 


032075 


1439 


001 776 


03 1 724 


1440 


002000 


000000 


1441 






1442 






1443 






1444 


002002 


026720 


1 445 


002004 


032047 


1446 


002006 


03 1 732 


1447 


002010 


000000 


1443 






1449 






1450 






1451 


002012 


026757 


1 452 


002014 


0321 55 


1 453 


002016 


031 762 


1454 


002020 


000000 


1455 






1456 






1457 






1458 


002022 


0270 1 4 


1459 


002024 


032047 


1460 


002026 


031 732 


1461 


002030 


000000 
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SEQ 0027 



ITEM 31 

EM54 
DH54 

DT54 


: ITEM 32 

EM55 

DH54 
DT54 


j ITEM 33 

EM56 
DH56 

DT54 



; ITEM 34 

EM57 
DH5 

DT1 


; ITEM 35 

EM60 

DH4 
DT2 



; ITEM 36 

EM81 
DH30 
DT26 



; IT EM 37 

EM62 

DH4 
DT2 





1 CNTR L RDY 1 DIDN'T SET ON DOING WRITE/FMT STARTING 
FROM <DSK-ADRES> 

PC RKCS RKER RKDS RKDA 

DRV# CYL <DSK-ADRES> SUR SECTR 

SERRPC SREGO SREG1 $REG2 SREG3 

$REG4 $REG5 $REG6 $REG> 



1 HE 1 OR 'ERR' 
<DSK-ADRES> 
PC RKCS 



ON WRITE/FMT STARTING FROM 



RKER 



RKDS 



DRV/f CYL <DSK-ADRES> 
SERRPC SREGO SREG1 SREG2 
SREG4 SREG5 $REG6 SREG7 



RKDA 

SUR 
SREG3 



• RKDA INCREMENTED WRONG ON WRITE OR WRITE FORMAT 
;PC EXPCT: DRV# CYL SUR SECTR 

;RECVD: DRV* CYL SUR SECTR 

; SERRPC SREGO fREG1 SREG2 SREG3 

;$REG4 SREG5 SREG6 SREG7 



RKWC DIDN'T OVERFLOW ON WRITE OR WRITE FORMAT 
PC RECVD 
SERRPC SREGO 



RKBA INCREMENTED WRONG ON WRITE OR WRITE FORMAT 
PC EXPCT RECVD 

SERRPC SREGO SREG1 



RKER SET. ON WRITE/ READ/ FORMAT 
PC RKCS RKER RKDS 

SERRPC SREGO SREG1 SREG2 



RKDB ERROR 
PC EXPCT 
SERRPC SREGO 



RECVD 
SREG1 
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SEQ 0028 



1 462 






1463 






1 464 






1465 


002032 


027026 


1466 


002034 


032503 


1467 






1468 


002036 


031 774 


1469 






1470 


002040 


000000 


1471 






1472 






1473 






1474 


002042 


027072 


1475 


002044 


032610 


1476 


002046 


031732 


1477 


002050 


000000 


1478 






1479 






1480 






1481 


002052 


027135 


1482 


002054 


032047 


1483 


002056 


031732 


1484 


002060 


000000 


1485 






1486 






1487 






1488 


002062 


027201 


1489 


002064 


032634 


1490 


002066 


031762 


1491 


002070 


000000 


1492 






1493 






1494 






1495 


002072 


027240 


1496 


002074 


032672 


1497 


002076 


031762 


1498 


002100 


000000 


1499 






1500 






1501 






1502 


002102 


027253 


1 503 






1 504 


002104 


032374 


1505 






1506 


002106 


031774 


1507 






1508 


0021 10 


000000 


1509 






1 510 






151 1 






1512 


0021 12 


027344 


1513 






1514 


0021 14 


032374 


1515 






1516 


0021 16 


031774 


1517 







EM63 
DH56 

DT54 


41 

EM64 
DH64 
DT2 



42 

EM65 

DH4 
DT2 


43 

EM66 
DH66 
DT26 



44 

EM67 
DH67 

DT26 


45 

EM70 
DH54 
DT54 



46 

EM71 

DH54 

DT54 



; RKDA INCREMENTED WRONG ON READ OR READ FORMAT 
; PC EXPCT: DRV# CYL SUR SECTR 

; RECVD : DRV0 CYL -UR SECTR 

; SERRPC SREGO SREG1 SREG2 SREG3 

;SREG4 SREG5 SREG6 SREG7 



JRKWC DID NOT OVERFLOW ON READ OR READ FORMAT 
; PC RKWC RKDA 

; SERRPC SREGO SREG1 



; RKBA INCREMENTED WRONG ON READ OR READ FORMAT 
;PC EXPCT RECVD 

JSERRPC SREGO SREG1 



; INCORRECT HEADER FROM 'SECTOR' 
I PC SECTR EXPCT RECVD 

JSERRPC SREGO $REG1 SREG2. 



DATA ERROR 

PC EXPCT 
SERRPC SREGO 



RECVD 

SREG1 



DSK-ADRES 
SREG2 



; 'CNTRL RDY ' DIDN'T SET ON DOING READ/FMT STARTING 
; FROM vDSK-ADRES> 

; PC RKCS RKER RKDS RKDA 

;DRV# CYL <DSK-ADRES> SUR SECTR 

; SERRPC SREGO SREG1 SREG2 SREG3 
;SREG4 SREG5 SREG6 SREG7 



; 'HE' OR 'ERR' BIT SET ON READ/FMT STARTING 
; FROM <DSK-ADRES> 

; PC RKCS RKER RKDS RKDA 

;DRV# CYL <DSK-ADRES> SUR SECTR 

JSERRPC SREGO SREG1 SREG2 SREG3 
;SREG4 SREG5 SREG6 SREG7 
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1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1 564 
1565 
1566 
1567 
1568 
1569 
1570 
1 571 
1572 
1573 



002120 000000 



002122 
002124 
0021 26 
002130 



0021 32 
0021 34 
002136 
002140 



002142 
002144 
002146 
002150 



002152 
002154 
002156 
002160 



0021 62 
002164 
002166 
002170 



0021 72 
0021 74 
0021 76 
002200 



002202 
002204 
002206 
002210 



002212 
002214 
002216 



027422 
032047 
031 732 

000000 



027464 
032213 
031732 
000000 



027536 
032732 
031724 
000000 



027606 
032732 
031724 
000000 



027656 
033106 
031 724 
000000 



027721 
032047 
031 732 
000000 



027756 

032753 
031762 
000000 



030001 
032327 
031742 





47 

EM72 

DH4 
DT2 



EM73 
DH34 
DT2 




EM74 

DH74 

DT1 





EM75 

DH74 
DT1 



53 

EM76 
DH1 17 
DT1 


54 

EM 7 7 

DH4 
DT2 



EM100 
DH100 
DT26 


56 

EM101 
DH44 
DT20 



;WR0NG DRIVE ID IN RKDS AFTER SEEK 
;PC EXPCT RECVD 

;$ERRPC 5REG0 SREG1 



; HARDWARE POLL, 
; PC RKDS 
;$ERRPC SREGO 



; HARDWARE POLL, 
;PC DRIVE # 

;$ERRPC SREGO 



DRIVE ID BITS( 13-15) SHOULD BE CLE/. 



INTERRUPTING DRIVE * NOT PRESEN 7 * 



; 'DRIVE #' DID NOT INTERRUPT DURING HARDWARE POLL 
;PC DRIVE # 

;$ERRPC SREGO 



SCP DID NOT SET AFTER WAS DONE 
PC RKCS 

SERRPC SREGO 



; RKDA CHANGED AFTER 'DRIVE RESET' 
; PC EXPCT RECVD 

;$ERRPC SREGO SREG1 



; DATA ERROR AT WORD* 

;PC WORD# EXPCT RECVD 

;$ERRPC SREGO SREG1 SREG2 



; CNTRL RDY DID NOT SET AFTER READ CHECK 
; PC RKCS RKER RKDS RKDA 

; SERRPC SREGO SREG1 SREG2 SREG3 



MD-1 1-CZRKKF, RK1 1 BASIC LOGIC TEST 2 
CZRKKF . P1 1 21-FEB-78 08:51 



MACY1 1 30A( 1052) 21-FEB-78 
ERROR POINTER TABLE 



08-58 PAGE 31 



1574 
1575 
1576 
1577 
1578 
1 579 
1 580 
1581 
1582 
1 583 
1534 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
161 1 
1612 
1613 
1614 
1615 
1616 
1617 
1 618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 



002220 000000 



002222 
002224 
002226 
002230 



002232 
002234 
002236 
002240 



002242 
002244 
002246 
002250 



002252 
002254 
002256 
002260 



002262 
002264 
002266 
002270 



002272 
C02274 
C02276 
002300 



C02302 
002304 
002306 
002310 



002312 
002314 
002316 



030043 
032155 
031762 
000000 



030067 
03301 
03'724 
000000 



030105 
033024 
031732 
000000 



030156 
032047 
031732 
000000 



030214 
032047 
031732 
000000 



030245 
033050 
031762 
000000 



030306 
032327 
031742 
000000 



030351 
032155 
031762 



57 

EM102 

DH30 
DT26 


60 

EM103 
DH103 

DT1 


61 

EM104 
DH104 
DT2 


62 

EM105 

DH4 

DT2 



63 

EM 106 

DH4 

DT2 





EM107 
DH107 
DT26 





EM1 10 

DH44 

DT20 





EM1 1 1 
DH30 
DT26 



; ' ERR 1 OF 'HE' 
; PC RKCS 
; SERRPC SREGO 



SET ON READ CHECK 
RKER RKDS 
SREG1 SREG2 



'CSE' ON READ CHECK 
PC RKER 
SERRPC SREGO 



;RKWC DID NOT OVERFLOW ON READ CHECK OR WRITE CHECK 
; PC RECVD RKCS 

; SERRPC SREGO SREG1 



; RKDA INCREMENTED WRONG *"IN READ CHECK 
;PC EXPCT RECVD 

; SERRPC SREGO SREG1 



\ RKBA CHANGED AFTER READ CHECK 
;PC EXPCT RECVD 

; SERRPC SREGO $REG1 



; MEMORY WORD CHANGED AFTER READ CHECK 
;PC LOC EXPCT RECVD 

; SERRPC SREGO SREG1 SREG2 



; CNTRL RDY DID NOT SET AFTER WRITE CHECK 
;PC RKCS RKER RKDS RKDA 

; SERRPC SREGO $REG1 SREG2 SREG3 



; HE OR ERR BIT SET AFTER DOING WRITE CHECK 
;PC RKCS RKER RKDS 

; SERRPC SREGO SREG1 SREG2 



MD-1 1 -CZRKKF, RK11 BASIC LOGIC TEST 2 
CZRKKF . P 1 1 21-FEB-78 08551 



MACY1 1 30A( 10S2) 21»FE§»?8 08?S8 PAGE 32 
ERROR POINTER TABLE 



1630 
1631 

1632 
1633 
1634 
1535 
1636 
1637 
1638 
1639 
104 
1641 
1642 
1643 
1644 
1645 
164S 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1 669 
1670 
1 671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1 680 
1681 
1682 
1683 
1684 
1685 



002320 000000 



I ITEM 



002322 
002324 
002326 
002330 



002332 
002334 
002336 
002340 



002342 
002344 
002346 
002350 



002352 
002354 
002356 
002360 



002362 
002364 
00236S 
002370 



002372 

002374 
002376 
002400 



002402 
002404 
002406 

002410 



002412 
002414 
002416 



030376 
032155 
031762 
000000 



030417 
032047 
031732 
000000 



030456 
032047 
031732 
000000 



030515 
032047 
031732 
000000 



030551 
032753 
031762 
000000 



030624 
0331 06 
031724 
000000 



030571 
0331 06 
031724 
000000 



030744 
0331 06 
031724 



67 

EM1 12 

DH30 

DT26 





EM1 13 
DH4 

DT2 
■ 



; ITEM 71 



EM1 14 

0H4 
DTS 




5 ITEM 72 



EM115 

DH4 
DT2 





EM1 16 
DH1 00 
DT26 



74 

EM1 17 

DH1 17 

DT1 



75 

EM120 

DH1 17 

DT1 



76 

EM121 

DH1 17 
DT1 



; WRITE CHECK ERROR 

; PC RKCS RKER kKDS 

5 SERRPC SREGO $REG1 SREG2 



; RKDA INCREMENTED WRONG ON WRITE CHECK 
I PC EXPCT RECVD 

I SERRPC SREGO SREG1 



; RKBA INCREMENTED WRONG ON WRITE CHECK 
I PC EXPCT RECVD 

;$ERRPC SREGO $REG1 



; RKBA INCREMENTED WITH IBA SET 
;PC EXPCT RECVD 

;$ERRPC SREGO SREG1 



; WRONG MEMORY 
;PC WORD* 
; SERRPC SREGO 



;RK11 DID NOT 
; PC RKCS 
; SERRPC SREGO 



LOCATION CHANGED WITH IBA SET 
EXPCT RECVD 
SREG1 SREG2 



INTERRUPT WHEN IDE WAS SET 



;RK11 DID NOT INTERRUPT AFTER SEEK WAS INITIATED 

;PC RKCS 
; SERRPC SREGO 



;SCP SET BEFORE SEEK COMPLETED 
;PC RKCS 
; SERRPC SREGO 



MD-1 1 -CZRKKF, RK1 1 BASIC LOGIC TEST 2 
CZRKKF . P 1 1 21-FEB-78 08:51 



MACY1 1 30A( 1052) 21-FEB-78 
ERROR POINTER TABLE 



08:58 PAGE 33 



. 1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
171 1 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1 723 
1 724 
1725 
1726 
1727 
1728 
1729 
1 730 
1731 
1732 
1733 
1734 
1735 
1736 
1 737 
1738 
1739 
1740 
1741 



002420 000000 



002422 
002424 
002426 
002430 



002432 
002434 
002436 
002440 



002442 
002444 
002446 

002450 



002452 
002454 
002456 
002460 



002462 
002464 
002466 
002470 



002472 
002474 

002476 
002500 



002502 
002504 
002506 
002510 



031002 
032155 
031762 
000000 



031051 
033106 
031724 
000000 



031 1 1 
033106 
031724 
000000 



031152 
032020 
031732 
000000 



03121 1 
0331 22 
031732 
000000 



031252 
033122 

031732 
000000 



031314 
033150 
031762 
000000 



; ITEM 77 

EM122 
DH30 

DT26 


; ITEM 100 

EM123 
DH1 17 
DT1 



; ITEM 101 

EM124 
DH117 

DT1 


; ITEM 102 

EM125 
DH2 

DT2 



103 

EM126 
DH126 

DT2 


104 

EM127 
DH126 

DT2 




EM130 
DH1 30 
DT26 





; ITEM 106 



;RK11 DID NOT INTERRUPT AFTER SEEK COMPLETED 
;PC RKCS RKER RKDS 

; SERRPC SREGO SREG1 SREG2 



; CNTR L RESET DID NOT CLEAR 
; PC RKCS 
; SERRPC SREGO 



;RK11 DID NOT INTERRUPT AFTER READ WAS DONE 
;PC RKCS 
; SERRPC SREGO 



; CNTR L RESET DID NOT CLEAR REGISTER 
; PC REGADD RECVD 

;$ERRPC SREGO SREG1 



;RK11 DID NOT INTERRUPT AT CPU LEVEL 
;PC LEVEL RKCS 

; SERRPC SREGO $REG1 



;RK11 INTERRUPTED AT WRONG CPU LEVEL 

;PC LEVEL RKCS 

ISERRPC SREGO $REG1 



002512 031351 
002514 033207 



EM131 
DH131 



; 1 ERR BIT' DID NOT SET IN RKER 
; PC RKCS RKER ERR BIT 

,* SERRPC SREGO SREG1 SREG2 



; HE OR ERR DID NOT SET 
; PC RKCS RKER 



MD-1 1-CZRKKF. RK1 1 BASIC LOGIC TEST 2 
CZRKKF.P11 21-FEB-78 08:51 



MACY11 30A( 1052) 21-FEB-78 ' 08-58 PAGE 34 
ERROR POINTER TABLE 



1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1 771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1 783 
1 784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 



002516 031732 
002520 000000 



002522 
002524 
002526 
002530 



002532 

002534 
002536 
002540 



002542 
002544 
002546 
002550 



002552 
002554 
002556 
002560 



002562 
002564 
002566 
002570 



002572 
002574 
002576 
002600 



002602 
002604 
002606 
002610 



031376 

032047 
031732 
000000 



031410 
033235 
031 762 

000000 



031433 
033207 
031732 
000000 



031474 
032047 
031732 
000000 



030306 
0321 13 
031762 

000000 



031531 
032327 
031742 
000000 



031547 
033273 
031 742 
000000 



DT2 


107 

EM132 

DH4 
DT2 


110 

EMI 33 
DH133 
DT26 


111 

EM 134 
DH131 
DT2 




EM 135 

DH4 

DT2 



;$ERRPC SREGO SREG1 



002612 031616 



; ITEM 113 

EM1 10 

DH14 
DT26 


; ITEM 114 

EM137 
DH44 

DT20 


; ITEM 115 

EM140 

DH140 

DT20 





116 
EM141 



; RKER ERROR 
;PC EXPCT 
;$ERRPC SREGO 



RECVD 
SREG1 



;NXC BIT DID NOT SET 

; PC RKCS RKER RKDA 

;PC SREGO SREG1 SREG2 



;RK11 DIDN'T INTERRUPT ON SOFT ERROR 
;PC RKCS RKER 

;$ERRPC SREGO SREG1 



;MEX BITS INCREMENTED WRONG IN RKCS 
; PC EXPCTD RECVD 

;$ERRPC SREGO SREG1 



CNTRL RDY DID NOT SET AFTER WRT CHK 
PC RKCS RKER RKWC 

SERRPC SREGO SREG1 SREG2 



; 1 WPS 1 NOT CLEAR 

;PC RKCS RKER RKDS RKDA 

; SERRPC SREGO SREG1 SREG2 SREG3 



; DATA ERROR ON TRANSFER FROM DISK TO TTY 
;PC EXPCT RECVD RKBA RKCS 

; SERRPC SREGO SREG1 SREG2 SREG3 



'DRIVE #' PRESENT, BUT NOT SPECIFIED 



MD-1 1-CZRKKF , RK1 1 BASIC LOGIC TEST 2 

CZRKKF . P 1 1 21-FEB-78 08:51 



MACY1 1 30A( 1052) 21-FEB-78 
ERROR POINTER TABLE 



08:58 PAGE 35 



1798 


002614 


032732 


1799 


002616 


031724 


1800 


002620 


000000 


1801 






1802 






1803 






1804 


002622 


025370 


1805 


002624 


032047 


1806 


002626 


031 732 


1807 


002630 


000000 


1808 






1809 


002632 


031662 


1810 


002634 


000000 


181 1 






1812 






1813 







DH74 

DT1 



117 

EM1 1 

DH4 
DT2 


120 
EM142 





;PC DRIVE # 

;$ERRPC SREGO 



;RKWC ERROR 
; PC EXPCT 
; SERRPC SREGO 



RECVD 
SREG1 



MD-1 1-CZRKKF, RK1 1 BASIC LOGIC TEST 2 
C2RKKF.P1 1 21-FEB-78 08:51 



MACY1 1 30A( 1052) 21-FEB-78 08:58 PAGE 36 
ERROR POINTER TABLE 



1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1 823 
1824 
1825 
1826 
1827 
1828 
1629 
1030 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1345 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 



002636 000005 



START: 
; ;GIVE 



002640 
002646 
002650 
002654 
002560 
002666 
002670 
002672 
002674 
002676 
002700 
002702 
002704 



15 



31 



023737 
001016 
005C77 
01 2700 
032777 
001006 
005001 
005301 
001376 
005300 
001 367 
000000 



1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 



000042 000046 



176464 
000250 
000200 



176440 20$: 



RESET 




; CLEAR THE BUS 


DR I VES 


TIME TO LOAD 


HEADS IN CASE OF AN APT START. 


CMP 


@#42, @#46 


; ARE WE IN ACT 1 1 AUTOMATIC MODE? 


BNE 


STARTA 


; NO , SKIP DELAY 


CLR 


@RKDA 


; SELECT UNIT 


MOV 


#250 , RO 


; WAIT FOR. . 


BIT 


#200,@RK0S 


; DRIVE READY. . 


BNE 


STARTA 


; IN CASE. . 


CLR 


R1 


;0F APT. . 


DEC 


R1 


; START, BUT. . 


BNE 


.-2 


; DON'T WAIT . . 


DEC 


RO 


; FOREVER. 


BNE 


20$ 




HALT 




; RKDS BIT 7 (DRIVE READY) NTVER SET 



STARTA: 
.SBTTL 
; ;CLEAR 



Uu<t! / U *4 


01 2706 


001 1 00 






MOV 


002710 


WW 3U<u 








CLR 


00271 2 


022706 


00 1 1 40 






CMP 




00 1 374 








BNE 


002720 


01 2706 


001100 






MOV 










; ; INITIALIZE 


002724 


01 2737 


0221 40 


000020 




MOV 


A A O *7 *3 O 


01 2737 


000340 


000022 




MOV 


A A *5 *7 A A 




022412 


000030 




MOV 


U U d. 1 '4 Q 


01 2737 


000340 


000032 




MOV 


0275^ 


1 2737 


024676 


000034 




MOV 


002762 


01 2737 


000340 


000036 




MOV 


002770 


01 2737 


024776 


000024 




MOV 


002776 




000340 


000026 




MOV 


003004 


005037 


001 206 






CLR 


003010 


005037 


001210 






CLR 


003014 


1 1 2737 


000001 


001 115 




MOVB 


003022 


01 2737 


003022 


001 1 06 




MOV 


003030 


01 2737 


003030 


001 110 




MOV 










; ;SI2E 


FOR A 










; ; EQUAL 


TO A 


003036 


01 3746 


000004 






MOV 


003042 


01 2737 


003076 


000004 




MOV 


003050 


01 2737 


177570 


001 140 




MOV 


003056 


01 2737 


177570 


001 142 




MOV 


003064 


022777 


177777 


176046 




CMP 


003072 


001012 








BNE 


003074 


000403 








BR 


003076 


01 2716 


003104 




64$: 


MOV 


003102 


000002 








RT I 


003104 


01 2737 


000176 


001 140 


65$: 


MOV 


0031 12 


01 2737 


000174 


001 142 




MOV 


003120 


01 2637 


000004 




66$: 


MOV 


003124 


023737 


000042 


000046 




CMP 


003132 


001416 








BEQ 



INITIALIZE THE COMMON TAGS 
THE COMMON TAGS (SCMTAG) AREA 
#$CMTAG,R6 

(R6) + 

#SWR,R6 ; ; DONE? 

.-6 

#STACK, JP 
FEW VECTORS 
#$SCOPE,<P#IOTVEC 

#34Q,@#I0TVEC+2 
#$ERROR,S>#EMTVEC 
#340,@#EMTV£C+2 
#$TRAP,@#TRAPVEC 



#340,@#TRAPVEC+2; LEVEL 7 



#$PWRDN,@#PWRVEC 
#340, @#PWRVEC+2 ; 
$TIMES ; 
SESCAPE 
#1 , SERMAX 
#. ,$LPADR 
#. , SLPERR 



#DSWR,SWR 
#DDISP, DISPLAY 
#-1 ,@>SWR 
66$ 



FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 

LOOP BACK IF NO 
SETUP THE STACK POINTER 

; IOT VECTOR FOR SCOPE ROUTINE 
LEVEL 7 

; EMT VECTOR FOR ERROR ROUTINE 
LEVEL 7 
TRAP VECTOR FOR TRAP CALLS 



; POWER FAILURE VECTOR 
LEVEL 7 

INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 
HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
"-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
?>#ERRVEC,-(SP) ; ;SAVE ERROR VECTOR 
#64$,@#ERRVEC ; ;SET UP ERROR VECTOR 

;;SETUP FOR A HARDWARE SW1CH REGISTER 
; ; AND A HARDWARE DISPLAY REGISTER 
; ; TRY TO REFERENCE HARDWARE SWR 
; ; BRANCH IF NO TIMEOUT TRAP OCCURRED 
; ; AND THE HARDWARE SWR IS NOT * -1 
; ; BRANCK IF NO TIMEOUT 
; ;SET UP FOR TRAP RETURN 



65$ 

#65$, (SP) 



#SWREG,SWR 
#DISPREG, DISPLAY 
(SP)+,S>#ERRVEC 



; I POINT TO SOFTWARE SWR 
; RESTORE ERROR VECTOR 



69$ 

•SBTTL TYPE PROGRAM NAME 
; ; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 



; ARE WE IN ACT1 1 AUTOMATIC MODE? 
;YES, SKIP TITLE 



3-1 1-CZRKKF, 


RK1 1 BASIC LOGIC 


TEST 2 


MACY1 1 


30A( 1052) 21-FEB-78 08:58 PAGE 37 


J RKKF 


. P 1 1 


21-FEB-7S 


08:51 




TYPE PROGRAM 


NAME 




1870 


003134 


005227 


177777 






INC 


#-1 


; ; FIRST TIME? 


1871 


003140 


001043 








BNE 


67$ 


; : BRANCH IF NO 


1872 


0031 42 


104401 


003200 






TYPE 


,68$ 


; ; TYPE ASCIZ STRING 


1873 










. SBTTL 


GET 


VALUE FOR SOFTWARE SWITCH REGISTER 


1874 


0031 46 


005737 


000042 






TST 


@#42 


; ; ARE WE RUNNING UNDER XXDP/ACT? 


1875 


0031 52 


001 006 








BNE 


69$ 


; ; BRANCH IF YES 


1876 


003154 


023727 


001 140 


000176 




CMP 


SWR„#SWREG 


; ; SOFTWARE SWITCH REG SELECTED? 


1877 


003162 


001005 








BNE 


70$ 


; ; BRANCH IF NO 


1878 


003164 


104406 








GTSWR 


; ; GET SOFT-SWR SETTINGS 


1879 


003166 


000403 








BR 


70$ 




1880 


0031 70 


1 1 2737 


000001 


001134 


69$: 


MOVB 


#1 ,$AUTOB 


; ;SET AUTO-MODE INDICATOR 


1881 


0031 76 








70$: 








1882 


003176 


000424 








BR 


67$ 


; ; GET OVER THE ASCIZ 


1883 










; ;68$: 


.ASCIZ <CRLF>/RK11 LOGIC TEST 2/<1 5X1 2>/MAINDEC-1 1 -CZRKKF/<CRLF> 


1884 


003250 








67$: 








1885 


003250 


01 2700 


001410 






MOV 


#DDPCH,RO 




1886 


003254 


01 2701 


177764 






MOV 


#-14, R1 




1887 


003260 


005020 






1$: 


CLR 


(R0) + 




1 888 


003262 


005201 








INC 


R1 




1889 


003264 


001375 








BNE 


1$ 




1890 


003266 


005227 


177777 






INC 


#~1 


; FIRST START ? 


1891 


003272 


001 020 








BNE 


START1 


•BR IF NOT 


1 892 


003274 


01 3746 


000004 






MOV 


ERRVEC.-(SP) 


;SAVE ERROR VECTOR ADDRESS 


1893 


003300 


01 2737 


003314 


000004 




MOV 


#2$,ERRVEC 


;NEW VECTOR ADDRESS 


1894 


003306 


005737 


177776 






TST 


PS 


•SEE IF PROGRAM CAN REFERENCE THE 


1895 
















• PROCESSTR STATUS WORD 


1896 


003312 


000406 








BR 


35 


BR IF REFERENCE DIDN'T CAUSE TRAP 


1897 


003314 


01 2737 


000140 


001400 


2$: 


MOV 


#140,RKPRI 


;SETUP INTERRUPTING PRIORITY TO VALUE 


1898 














; WHICH WILL ALLOW INTERRUPT ON AN LSI-11 


1899 


003322 


012716 


003330 






MOV 


#3$,(SP) 


SETUP RETURN ADDRESS 


1900 


003326 


000002 








RT I 




; RETURN 


1901 
1 902 


003330 


01 2637 


000004 




3$: 


MOV 


(SP)+,ERRVEC 


• RESTORE THE ERROR VECTOR 


1903 










•FIND OUT IF 


ACT1 1 , 'XXDP' CHAIN 


OR DUMP MODE 


1904 


















1905 


003334 


01 2700 


001410 




START 1 


MOV 


#DDPCH,R0 




1906 


003340 


01 2701 


177766 






MOV 


#-12, R1 


CLEAR OUT DRIVE TABLE AREA 


1907 


003344 


005020 






1$: 


CLR 


(R0) + 




1908 


003346 


005201 








INC 


R1 




1909 


003350 


001375 








BNE 


1$ 




1910 


003352 


122737 


000002 


000041 




CMPB 


#2,41 


LOADED FROM AN RK05 ? 


191 1 


003360 


001 166 








BNE 


ST2 


BR IF NOT 


1912 


003362 


01 3737 


000040 


001410 




MOV 


40 , DDPCH 


GET DEVICE INDICATOR AND DRIVE ADDRESS OF 


1913 
















LOADING RK05 


1914 


003370 


122737 


000010 


001410 




CMPB 


#10,DDPCH 


VALID DRIVE NUMBER IN BYTE 40 ? 


1915 


003375 


101002 








BHI 


2$ 


BR IF YES 


1916 


003400 


105037 


001410 






CLRB 


DDPCH 


MUST BE DRIVE ZERO WHICH LOADED 


1917 
















THIS PROGRAM 


1918 


003404 


005737 


000042 




2$: 


TST 


42 


CHAIN MODE OR ACT1 1 AUTO ACCEPT ? 


1919 


003410 


00 1432 








BEQ 


4$ 


BR IF NEITHER 


1920 


00341 2 


005737 


00141 






TST 


DDPCH 


RUNNING FROM AN RK05 ? 


1921 


003416 


001002 








BNE 


3$ 


BR IF YES 


1922 


003420 


0001 37 


004262 






UMP 


ST3 


FIND OUT NUMBER OF DRIVES 


1923 


003424 








3$: 








1924 


003424 


104401 


003432 






TYPE 


,65$ 


; TYPE ASCIZ STRING 


1925 


003430 


00041 3 








BR 


64$ 


; GET OVER THE ASCIZ 
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SEO 0037 



1926 








1927 


003460 






1928 


003460 


005046 




1929 


003462 


1 1 3716 


00141 


1930 


003466 


1 04403 




1 931 


003470 


001 




1932 


003471 


000 




1933 


003472 


0001 37 


004262 


1934 


003476 


005227 


1 77777 


1935 


003502 


001 1 15 




1936 


003504 


1 04401 


00351 2 


1937 


003510 


00041 1 




1938 








1939 


003534 






1940 


003534 


005046 




1941 


003536 


1 1 3716 


001410 


1942 


003542 


1 04403 




1943 


003544 


001 




1944 


003545 


000 




1 945 


003546 


104401 


003554 


1946 


003552 


000431 




1947 








1948 


003636 






1949 


003636 


104401 


003644 


1950 


003642 


000435 




1951 








1952 


003736 






1953 








1954 








1955 








1956 








1957 








1958 








1 959 


003736 


01 2700 


001412 


1960 


003742 


01 2701 


1 77765 


1961 


003746 


005020 




1962 


003750 


005201 




1963 


003752 


001375 




1964 


003754 


104401 


003762 


1965 


003760 


00041 5 




1966 








1 967 


004014 






19S8 


004014 


10441 1 




1 969 


004016 


01 2600 




1 970 


004020 


01 2701 


1 77770 


1 971 


004024 


1 1 2002 




1 972 


004026 


042702 


1 77400 


1 973 


004032 


01 2703 


001414 


1974 


004036 


01 2704 


1 77770 


1 975 


004042 


01 2705 


000060 


1976 


004046 


020502 




1977 








1978 


004050 


001414 




1979 


004052 


005205 




1980 


004054 


005723 




1981 


004056 


005204 





; ;65$: 
64$: 





<15><12>/N0T TESTING DRIVE / 


CLR 


-(SP) 


; CLEAR WORD ON STACK 


_ _ 

svlQ V D 


DDPCH, (SP) 


; GET DRIVE ADDRESS 






; T YPE THE ADDRESS 


. BYTE 




iflWi V 1 ' WADArTPD 


.BYTE 





;SUPRESS LEADING ZEROS 


JMP 


ST3 


; GET NUMBER OF DRIVES 




#-1 


; FIRST TIME THROUGH HERE ? 


BNE 


ST2 


; BR IF NOV 


TYPE 


,675 


; ; TYPE ASCIZ STRING 




66$ 


; ; GET OVER THE ASCIZ 


* 


<15><12>/T0 TEST 


DRIVE / 


CLR 


-(SP) 


. r i cad w n d n dm tuc ct ktu 

,ULtAK WUKU UN 1 tit 3 1 Aw(S 


MOVB 


DDPCH, (SP) 


; GET DRIVE ADDRESS 


TYPOS 




; TYPE THE DRIVE ADDRESS 




1 


; ONLY 1 CHARACTER 


" |yj| 





;SUPRESS LEADING ZEROS 


TYPE 


,69$ 


; ; TYPE ASCIZ STRING 


BR 


68$ 


; ; GET OVER THE ASCIZ 


.ASCIZ 


/ HALT PROGRAM, 


REMOVE RKDP PACK AND REPLACE IT/< 


TYPE 


,71$ 


; ; TYPE ASCIZ STRING 


BR 


70$ 


; ; GET OVER THE ASCIZ 


.ASCIZ 


/WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART 



; ;67$: 
66$: 



; ;69$: 

68$: 



; ;71$ 

70$: 

FIND OUT FROM USER WHICH DRIVES ( LOGICAL ADDRESSES) ARE TO BE 
TESTED (DRIVES TO BE TESTED ?). IN REPLY THE USER SHOULD TYPE IN THE 
LOGICAL ADDRESSES SEPERATED BY COMMAS. THUS IF 2 DRIVES 0.1 ARE PRESENT: 
'DRIVS TO B TSTD? ' 

RET. SHOULD BE TYPED TO TERMINATE THE LIST. 



; ;65$: 
64$: 



'0, 1<CR>' 

MOV 

MOV 

CLR 

INC 

BNE 

TYPE 

BR 

.ASCIZ 

RDLIN 

MOV 

MOV 

MOVB 

BIC 

MOV 

MOV 

MOV 

CMP 

BEQ 
INC 
TST 
INC 



CAR. 
#DRIVS,R0 

#-13, R1 

(R0) + 

R1 

13$ 

,65$ 

64$ 



; ; TYPE ASCIZ STRING 
; ; GET OVER THE ASCIZ 



<15><12>/DRIVES TO BE TESTED ?/<15><l2> 



(SP)+,R0 
#-10, R1 
(R0)+, R2 
#177400, R2 
#DRIV0,R3 
#-10, R4 
#60, R5 
R5.R2 

3$ 
R5 

(R3) + 



GET STARTING ADRES OF ASCII STRING 

SET UP COUNT 

GET ASCII CHARACTER 

MASK UNWANTED BITS 



;WAS THE TYPED IN CHARACTER 
;A NUMBER BETWEEN 0-7? 
;YES, BRANCH 
;NO, INCREMENT 

; INCREMENT POINTER TO DRV FLAG 
; CHARACTER THAT WAS INPUT 
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1 982 


004060 


001372 








BNE 


2$ 


; SHOULD BE 0-7, IF ANY OTHER 


1983 
















; TYPE ?? & AGAIN ASK FOR 


1984 
















JDRIVS TO BE TSTD? 


1985 


004062 


005702 








TST 


R2 


; IS IT A TERMINATOR? 


1986 


004064 


001461 








BEQ 


6$ 


; YES, EXIT. NO DRIVES INDICATED. 


1987 


004066 








4$: 








1988 


004066 


104401 


004074 






TYPE 


,67$ 


; ; TYPE ASCIZ STRING 


1989 


004072 


000402 








BR 


66$ 


; ; GET OVER THE ASCIZ 


1990 










; ;67$: 


.ASCIZ 


/??/ 




1991 


0041 00 








66$: 








1992 


0041 00 


000716 








BR 


ST2 


;GO, AGAIN ASK QUESTION 


1993 


0041 02 


005713 






3$: 


TST 


PR3 ;SEE 


IF ALL READY SELECTED 


1994 


0041 04 


001370 








BNE 


4$ ; ERROR IF SELECTED ALL READY 


1995 


004106 


005213 








INC 


§>R3 


;SET UP FLAG FOR THE DRIVE 


1996 


0041 1 


005237 


001412 






INC 


DRIVS 


; INCREMENT TOTAL NO OF DRIVES PRESENT 


1997 


0041 14 


1 1 1 002 






11$: 


MOVB 


@R0,R2 


; GET NEXT CHAR 


1998 


0041 16 


042702 


1 77400 






BIC 


#177400, R2 


; CHARACTER ONLY 


1999 


0041 22 


022702 


000106 






CMP 


# ' F.R2 


; IS IT F? 


2000 


004126 


001026 








BNE 


8$ 


;NO, GO ON 


2001 


0041 30 


05271 3 


100000 






BIS 


#BIT15,@R3 


;SET BIT 15 TO SHOW RK05F 


2002 


0041 34 


032705 


000001 






BIT 


#BIT0,R5 


; EVEN DRIVE? 


2003 


004140 


001407 








BEQ 


9$ 


; EVEN DRIVE SO BRANCH 


2004 


0041 42 


005753 


177776 






TST 


-2(R3) 


; CHECK EVEN DRIVE 


2005 


004146 


001347 








BNE 


4$ 


; EVEN ALL READY SELECTED 


2006 


0041 50 


01 2763 


100001 


177776 




MOV 


#BIT15! BITO, 


-2(R3) ; SELECT EVEN DRIVE 


2007 


0041 56 


000406 








BR 


10$ 


;C0NTINUE 


2008 


004160 


005763 


000002 




9$: 


TST 


2(R3) 


; CHECK ODD DRIVE 


2009 


0041 64 


001340 








BNE 


4$ 


; ERROR IF SELECTED BEFORE 


2010 


0041 66 


01 2763 


100001 


000002 




MOV 


#BIT15!BIT0, 


2(R3) ; SELECT ODD DRIVE 


201 1 


0041 74 


005237 


001412 




10$: 


INC 


DRIVS 


; COUNT DRIVES SELECTED 


2012 


004200 


105720 








TSTB 


(R0) + 


; POINT TO NEXT CHAR 


2013 


004202 


000744 








BR 


11$ 


; CHECK FOR COMMA 


2014 


004204 


022702 


000054 




8$: 


CMP 


#54, R2 


; IS IT A 1 COMMA 1 ? 


2015 


00421 


001403 








BEQ 


5$ 


; YES, GO PROCESS NXT WORD 


2016 


C04212 


005702 








TST 


R2 


;NO, IS IT A TERMINATOR? 


2017 


004214 


001324 








BNE 


4$ 


; IF NOT , SOMETHING WRONG 


2018 
















;GO ASK QUESTION AGAIN 


2019 


004216 


000404 








BR 


6$ 


; EXIT, IF A TERMINATOR 


2020 


004220 


105720 






5$: 


TSTB 


(R0) + 


; INCREMENT PTR TO NXT BYTE 


2021 
















; IN INPUT BUFFER 


2022 


004222 


005201 








INC 


R1 


; THERE SHOULD BE NO MORE THAN 


2023 


004224 


001277 








BNE 


1$ 


;8 DRIVES, HENCE IF MORE 


2024 


004226 


000717 








BR 


4$ 


; THAN 8 DIFFERENT NOS. TYPED IN, ERRORS 


2025 
















;GO AGAIN ASK THE QUESTION 


2026 


















2027 


004230 


005037 


001440 




6$: 


CLR 


SIZYET 


;NO SIZI-.G NEEDED 


2028 


004234 


032777 


002000 


1 74676 




BIT 


#SW10,©SWR 


; TESTING ON SIMULATOR? 


2029 


004242 


001003 








BNE 


7$ 


; YES, BRANCH 


2030 


004244 


005037 


001344 






CLR 


SIMUL 


;NO. CLR FLAG 


2031 


C04250 


000502 








BR 


ST4 




2032 


















2033 


004252 


012737 


000001 


001344 


7$: 


MOV 


#1 , SIMUL 


;SET FLAG TO INDICATE SIMULATOR 


2034 


004260 


000476 








BR 


ST4 


2035 


















2036 


















2037 
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GET VALUE FOR 


SOFTWARE SWITCH 


2038 












NUIVID t K 


OF DRIVES 


2039 


004262 


01 2737 


177777 


001440 


5T3 • 


iuinv 


#-1 .SIZYZT 


2040 


004270 


01 2737 


004442 


000004 






#5$ ,@#4 


2041 


004276 


005777 


175024 






TCT 

tIt 


@RKDS 


2042 


004302 


005777 


1 75032 








@RKDA 


2043 


004306 


01 2737 


004534 


000004 






#BADTM0 ,@#4 


2044 


004314 


104401 












2045 


004316 


001216 








MSG1 




2046 


004320 


01 2700 


1 77770 






MOV 


#-10, R0 


2047 


004324 


005037 


001412 








DRIVS 


2048 


004330 


005001 








C LR 


R1 


2049 


004332 


005004 








CLR 


R4 


2050 


004334 


01 2702 


001414 








#DRIV0 , R2 


2051 


004340 


01 0177 


174774 




* 


mhv 


R1 , (PRKDA 


2052 


004344 


020177 


174770 






tmp 


R1 ,@RKDA 


2053 


004350 


001405 










3$ 


2054 


004352 


01 2703 


004356 








#2$,R3 


2055 


004356 


004737 


021026 






ICS 


PC.TYERM 


2058 
















2057 
















2058 
















2059 
















2060 
















2061 














4$ 


2062 


004362 


000413 








BR 


2063 


004364 


032777 


000200 


174734 


35 : 


BIT 


#200,@RKDS 


2064 
















2065 


004372 


001407 








BEQ 


4$ 


2066 


004374 


104401 








TYPE 




2067 


004376 


001213 








SCR LF 




2068 


004400 


005237 


001412 






INC 


DRIVS 


2069 


004404 


005212 








INC 


(R2) 


2070 


004406 


01 0446 










R4,-(SP) 


2071 


004410 


104402 








TYPOC 




2072 


004412 


005722 






4$ : 


TST 


(R2) + 


2073 


004414 


062701 


020000 








#20000, R1 


2074 


004420 


005204 








I S 


R4 


2075 


004422 


005200 








INC 


R0 


2076 


004424 


001345 










1$ 


2077 


004426 


005737 


001412 






TST 


DRIVS 


2078 


004432 


00101 1 








BNE 


ST4 


2079 


004434 


104401 












2080 


004436 


001236 








MSG2 




2081 


004440 


000406 








BR 


ST4 


2082 
















2083 


004442 


01 1603 






5$ ; 




(SP) ,R3 


2084 


004444 


022626 










(SP)+, (SP)+ 


2085 


004446 


062703 


177776 






Ann 


#-2,R3 


2086 


004452 


004737 


021026 






JSR 


PC , TYERM 


2087 
















2088 
















2089 
















2090 
















2091 
















2092 
















2093 

















; CHECK FOR RK05F LATER 

;SET UP ADRES FOR TIME-OUT VECTOR 

; REFERENCE RKDS 

{ REFERENCE RKDA 



{ INITIALIZE COUNT FOR THE 8 DRIVES 
; INITIALIZE H OF DRIVES PRESENT TO 
; INITIALIZE ADDRESS TO DRIVE 



; ADDRESS THE DRIVE 

; CHECK. WAS IT ADDRESSED? 

;YES 

; WHILE CHECKING NUMBER OF DRIVE 

; UNDER NON-MANUAL MODE :- 

{RKDA HAD TO BE ADRESED BUT 

;IT WAS FOUND THAT THE DRIVE NO 

; THAT WAS WRITTEN COULD NOT BE READ BACK 

'.CORRECTLY. 



CHECK I." 
PRESENT 



'DRY' BIT IS SET , IF SET DRIVE IS 



; IF PRESENT, INCREMENT # OF DRIVES 

;SET UP FLAG INDICATING THIS DRIVE PRESENT 



; SHIFT POINTER TO NXT DRIVE INDICATOR 
;SET UP ADDRESS FOR THE NEXT DRIVE 
; HAVE U CHECKED FOR ALL 8 DRIVES 



;G0 CHECK THE DRIVE INDEPENDENT 
{ CONTROLLER LOGIC 
; GET PC WHERE TIMEOUT OCCURED 
{RESTORE STACK 

;GO TYPE ERROR MESSAGE 

{WHILE CHECKING FOR THE NUMBcR OF 

{DRIVES IN NON-MANUAL MODE:- 

; RKDS AND RKDA HAD TO BE REFERENCE- , TIMEOUT 
{ OCCURED ON REFERENCING . PC IN THE ERROR 
{MESSAGE INDICATES WHERE TH? TIMEOUT OCCURED. 
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ZRKKF 


P1 1 


21-FEB-78 


08:51 




GET 


VALUE FOR 


SOFTWARE SWITCH 


2094 
















2095 
















2096 


004456 


005037 


001434 




ST4 : 


CLR 


T56FLG 


2097 


004462 


005737 


001412 






TST 


DRIVS 


2098 


004466 


00 1 004 








BNE 


1$ 


2099 


004470 


004737 


021742 






JSR 


PC.WATIME 


2100 


004474 


0001 37 


020652 






JMP 


$E0P 


2101 


004500 


01 2737 


001414 


001354 


1$; 


MOV 


#DRIVO,DRVPTR 


2102 


004506 


005037 


001352 






CLR 


DRVDON 


2103 
















2104 


00451 2 


005037 


001350 






CLR 


DRIVAD 


2105 
















2106 


004516 


01 2737 


004534 


000004 




MOV 


#BADTM0,$#4 


2107 
















2108 


004524 


01 2777 


004600 


174650 




MOV 


#BADINT,$RKVEC 


2109 
















21 10 


004532 


000465 








BR 


TST1 



SEQ 0040 



21 1 1 
2112 
2113 
2114 
21 15 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 



; INITIALIZE THE NO. OF DRIVES 
{THAT HAVE BEEN CHECKED 
; INITIALIZE DRIVE ADDRESS TO 
{THE FIRST DRIVE 

{SET TIME OUT VECTOR FOR UNEXPECTED 
{TIME OUTS 

{SET UP RK11 INTERRUPT VECTOR FOR 
{UNEXPECTED INTERRUPTS FROM RK1 1 
{ GO TO TEST 1 



{THIS ROUTINE HANDLES UNEXPECTED TIME OUTS 



004534 01 1600 
004536 005740 



004540 
004542 
004546 



022626 
104401 
000407 



004566 

004566 01 0046 



{{65$: 

64$ : 



004570 
004572 



104402 

000000 



004574 000137 002636 



MOV 

TST 

CMP 

TYPE 

BR 

.ASCIZ 

MOV 
TYPOC 

HALT 
UMP 



(SP) ,R0 {SAVE PC WHERE TIME OUT OCCURED 
-(RO) 

(SP)+, (SP)+ {RESTORE STACK POINTER 

,65$ { {TYPE ASCIZ STRING 

64$ { ; GET OVER THE ASCIZ 

<15><12>/TIMOUT.PC»/ 



R0,-(SP) 
•#START 



; SET UP FOR TYPING OUT PC 
;GO TYPE OUT OCTAL PC 



{THIS ROUTINE HANDLES UNEXPECTED INTERRUPTS FROM RK1 1 

;SW 9 AND 10 FOR LOOPING ON ERROR 

{ AND LOOPING ON TEST IN WHICH TIMEOUT 

{OCCURRED, ARE PROVIDED. 



004600 
004602 
C04504 
004612 
004614 
004616 
004620 
004622 

004624 
004630 



01 1600 
005740 
032777 
001 014 
1 04401 
001213 
104401 
026004 

104401 
000403 



020000 174326 



004640 

004640 010046 



BAD I NT*. MOV 
TST 
BIT 
BNE 
TYPE 
SCR LF 
TYPE 
EM43 

TYPE 
BR 

{{65$: .ASCIZ 
64$: 

MOV 



{ SP) , RO 
-(RO) 

#20000, @SWR 
1$ 



,65$ 

64$ 

/,PC»/ 



RO.-(SP) 



{SAVE PC WHERE INTERRUPT OCCURED 



; INHIBIT ERROR TYPEOUT? 
{YES, DON'T TYPE OUT 



TYPE 'UNEXPEXTED RK1 1 INTERRUPT' 
TYPE 1 AT PC= ' 
{TYPE ASCIZ STRING 
{GET OVER THE ASCIZ 



{SET UP FOR TYPING OUT PC 
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2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
21 77 
21 78 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 



004642 104402 

004644 032777 001000 174266 

004652 001403 

004654 022626 

004656 000177 174224 

004662 032777 040000 174250 

004670 001401 

004672 000002 

004674 000000 



004676 000137 002636 



BIT 
BEQ 

CMP 
JMP 

BIT 
BEQ 
RTI 
HALT 



#1000, @SWR 
2$ 

(SP)+, (SP)+ 

©SLPADR 

#40000, @SWR 
3$ 



GO TYPE OCTAL PC WHERE BAD 
INTERUPT OCCURED 
LOOP ON ERROR? 
NO, BRANCH 

YES, REPOSITION STACK 

GO TO THE STARTING ADDRESS OF 

THE TEST THAT GAVE UNEXPECTED INTERRUPT 

LOOP ON TEST? 

NO. BRANCH 

YES. LOOP. GO BACK WHER U INTERRUPTED FROM. 

UNEXPECTED INTERRUPT OCCURED AS 

INDICATED IN THE TYPE OUT . U CAN LLJP 

ON ERROR. TEST .OR INHIBIT TYPEOUT BY 

SETTING APPROPRIATE SWITCH'S. 

GO BACK TO THE START OF THE 

PROGRAM. THUS PRESSING CONTINUE 

AFTER THE ABOVE HALT WILL 

RESTART THE PROGRAM 



; RESTART AFTER POWER FAxL 

; THE PROGRAM WOULD RESTART HERE IF POWER CAME BACK AFTER A FALIURE. 



004702 004737 021742 



PFSTRT: JSR 



;KILL TIME 



;*TEST 1 CHECK THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT 

♦THIS TEST CHECKS THAT THE DRIVES THAT ARE NOT SPECIFIED 
*( IN RESPONSE TO "DRIVS TO BE TSTD? " ) ARE NOT FOUND TO BE PRESENT. 

* EVERY DRIVE FROM TO 7 IS ADDRESSED. IF A PARTICULAR DRIVE 
*GIVES ' DRY 1 ( IN RKDS) . IT IS CHECKED THAT THIS DRIVE 
*WAS SPECIFIED BY THE USER. IF IT WAS NOT AN ERROR IS 
★REPORTED, GIVING THE DRIVE NUMBER. IT IS LIKELY THAT THE USER 
*MAY HAVE FORGOTTEN TO PUT THE DRIVE (THAT IS NOT SPECIFIED) ON 

* 1 LOAD' . IF THIS IS THE CASE THEN PUT THIS DRIVE ON 1 LOAD' . 
*IF THIS IS NOT THE CASE, THERE IS A GENUINE ERROR. (TWO DIFFERENT 
♦DRIVE ADDRESSES MAY BE RESULTING IN THE SELECTION OF THE SAME 
♦PHYSICAL DRIVE. ) 



2192 


004706 


000004 




TST1 : 


SCOPE 






2193 
















2194 


004710 


01 2700 


001414 




MOV 


#DRIV0,R0 


INITIALIZE POINTER 


2195 


004714 


005001 






CLR 


R1 


INITIALIZE DRIVE ADRES 


2196 


004716 


005002 






CLR 


R2 


INITIALIZE DRIVE # 


2197 


004720 


005737 


001410 


1$: 


TST 


DDPCH 


LOADED FROM AN RK05 ? 


2198 


004724 


001403 






BEQ 


2$ 


B IF NOT 


2199 


004726 


120237 


001410 




CMPB 


R2, DDPCH 


LOADED FROM THIS DRIVE ? 


2200 


004732 


001435 






BEQ 


4$ 


BR IF YES 


2201 


004734 


01 0177 


174400 


2$: 


MOV 


R1 ,@RKDA 


ADRES THE DRIVE 


2202 


004740 


105777 


174362 




TSTB 


PRKDS 


DRIVE READY? 


2203 


004744 


100005 






BP L 


3$ 


NO, THIS DRIVE NOT PRESENT 


2204 














YES. THIS DRIVE SELECTED 


2205 


004746 


005710 






TST 


@RQ 


WAS THIS DRIVE SPECIFIED BY 
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2206 








2207 


004750 


001026 




2208 








2209 








2210 








221 1 


004752 


01 0237 


001162 


2212 


004756 


1041 16 




2213 








2214 








2215 








2216 








2217 








2218 








2219 


004760 


005710 




2220 


004762 


001421 




2221 








2222 


004764 


004737 


020774 


2223 


004770 


10401 




2224 








2225 








2226 








2227 








2228 








2229 


004772 


005010 




2230 








2231 


004774 


01 0003 




2232 


004776 


162703 


001414 


2233 


005002 


042703 


000003 


2234 


005006 


062703 


001414 


2235 


005012 


042723 


1 00000 


2236 


005016 


042713 


100000 


2237 


C05022 


005337 


001412 


2238 


005026 


005202 




2239 


005030 


005720 




2240 


005032 


062701 


020000 


2241 


005036 


001330 




2242 








2243 








2244 








2245 








2246 








2247 








2248 








2249 








2250 


005040 






2251 








2252 








2253 








2254 








2255 








2256 








2257 








2258 








2259 


005040 


000004 




2260 


005042 


01 2737 


000001 


2261 


005050 


012737 


000002 



MOV R2.SREG0 
ERROR 116 
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T1 CHECK THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT SEQ 0042 

THE USER? 
YES, OK 

NO, THIS DRIVE # WAS NOT SPECIFIED 
BY THE USER. BUT STILL IS GIVING 
' DRY' WHEN ADRESED. REPORT EROR. 

GET DRIVE # 

THIS DRIVE # WAS NOT SPECIFIED BY 
THE USER, BUT WHEN ADRESED GAVE 
'DRY'. CHECK THAT THIS DRIVE # IF 
PHYSICALLY PRESENT IS ON ' LOAD 1 - IF 
THIS IS NOT THE CASE, THEN ONE DRIVE 
MAY BE GETTING SELECTED BY TWO DIFFERENT 
LOGICAL ADDRESSES. 

CHECK THAT THIS DRIVE WAS NOT INDICATED 
IF IT WAS, & IT IS NOT FOUND TO BE 
PRESENT (DRY CLEAR) , REPORT ERROR. 
GET RKCS, ER, DS. DA 

DRIVE # (AS IN RKDA) WAS INDICATED BY 
THE USER. BUT WAS NOT FOUND TO BE PRESENT. 
CHECK THAT THE ROTARY DRIVE SELECTION 
SWITCH ON THE MODULE IS SET TO THE RIGHT 
DRIVE #. 



TST 
BEQ 



JSR 
ERROR 



@R0 
4$ 



PC , GT4RG 

10 



CLR 


PRO 


-.THIS DRIVE IS NOT FOUND TO BE 


PRESENT 






; HENCE DROP IT FROM THE SELECTION TABLE. 


MOV 


R0.R3 


•.DRIVE A^DR 




SUB 


#DRIV0 , R3 


;MINUS OFFSET FOR TABLE 




BIC 


#3, R3 


; EVEN DRIVE OF PAIR 




ADD 


#DRIV0,R3 


; POINT TO EVEN OF PAIR IF RK05 


F 


BIC 


#100000. <R3)+ 


;NOT SPECIFIED AS F MODEL 




BIC 


#100000, (R3) 


; SAME 




DEC 


DRIVS 


; DECREMENT DRIVE COUNT 




INC 


R2 


; INCRMNT DRIVE # 




TST 


(R0) + 


; INCRMNT POINTER 




ADD 


#20000, R1 


; INCRMNT ADRES TO NXT DRIVE 




BNE 


1$ 


; LUP BAK IF NOT DONE 




JTHIS 


PART OF THE PROGRAM IS GOING TO BE REPEATED FOR 




; EACH 


DRIVE PRESENT 






• ' DRIVAD 1 CONTAINS IN 


BITS 15,14,13 THE ADDRESS OF THE 




;DRIVE 


BEING CURRENTLY 


CHECKED. 





**** 



****** 



;#TE 
;THI 
; THE 
; THE 



001206 
001 1 02 



ST 2 FIND OUT NEXT DRIVE TO BE CHECKED 

S CODE FINDS OUT THE NEXT DRIVE THAT IS PRESENT AND THEN SETS UP 

ADDDRESS IN DRIVAD (BITS 13. 14,15) . THUS THROUGHOUT THE FOLLOWING TESTS 
DRIVE TESTED IS THE DRIVE WHOOSE ADDRESS IS IN 'DRIVAD' . 

SCOPE 

MOV #1 ,$TIMES ; ; DO 1 ITERATION 

MOV #2,$TSTNM ; RESET POINTER TO THIS TEST 



MD-1 1-CZRKKF, 

CZRKKF.P1 1 
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21-FEB-78 08:51 
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T2 FIND OUT NEXT DRIVE TO BE CHECKED 



SEQ 0043 



2262 
2263 

2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
231 1 
2312 
2313 
2314 
2315 
2316 
2317 



005056 
005062 
005066 
005070 
005074 

005100 
005104 
005106 
0051 14 
0051 16 
005120 
005124 
005126 
005132 
0051 34 
005136 
005140 
005142 
005144 
005146 
005152 
005154 

005160 
005164 
005170 
005174 
005200 
005202 

005204 
005205 
005210 
005214 
005216 
005222 

005226 
005226 
005232 
005234 



005236 
005240 



00 5037 


001112 




CLR 


SERTTL 




001412 




TST 


DRIVS 


00 1002 






BNE 


.+6 




020652 


4$; 


JMP 


SHOP 


01 3701 


001 354 




MOV 


DRVPTR , R1 


03272 1 


00000 1 


2S*. 


BIT 


#BITO, (R1 ) + 


00 1 005 






BNE 


1$ 


062737 


020000 001 3S0 


§$l 


ADD 


#20000, DRIVAD 


00 1 37 1 






BNE 


2$ 


00 0764 






BR 


4$ 


00 5737 


00141 


1$; 


TST 


DDPCH 


001413 






BEQ 


3$ 


1 3746 


001 350 




MOV 


DRIVAD.-(SP) 


00 031 6 






SWAB 


(SP) 


006216 






ASR 


(SP) 


006216 






ASR 


(SP) 


00621 6 






ASR 


(SP) 


00621 6 






ASR 


(SP) 


00621 6 






ASR 


(SP) 


1 22637 


001 41 




CMPB 


(SP)+, DDPCH 


00 1 755 






BEQ 


6$ 


010137 


001354 


3S; 


MOV 


R1 , DRVPTR 


1 04401 


001 272 




TYPE 


,MSG4 


01 3746 


001 350 




MOV 


DRIVAD,-(R6) 


004737 


021 200 




JSR 


PC , SHFTRT 


005037 


001404 




CLR 


FFLAG 


011 600 






MOV 


(R6) ,R0 


1 04403 






TYPOS 




001 


ooo 




. BYTE 


1,0 


00 6300 






ASL 


RO 


00 5760 


001414 




TST 


DRIVO(RO) 


100006 






BPL 


5$ 


104401 


005224 




TYPE 


,65$ 


000401 






BR 


64$ 






; ;65$: 


.A5C1Z 


/F/ 






64$: 






005237 


001404 




INC 


FFLAG 


104401 




5$: 


TYPE 




001213 






SCRLF 





000004 
104413 



NO. CHANGE THIS (2) IN CASE THE 

TEST NO. CHANGES 

CLEAR TOTAL ERROR COUNT 

R THERE ANY DRIVES PRESENT? 

YES, BRANCH 

NO. JMP TO THE END 

GET THAT POINTER TO THE NEXT 

DRIVE FLAG 

IS THIS DRIVE PRESENT? 
YES 

FORM NXT DRIVE ADRES 



PROGRAM LOADED FROM AN RK05 ? 
NO, BRANCH 

PUT TEST DRIVE ADDRESS ON THE STACK 

SETUP TO RIGHT JUSTIFY THE ADDRESS 

RIGHT JUSTIFY THE ADDRESS 

RIGHT JUSTIFY THE ADDRESS 

RIGHT JUSTIFY THE ADDRESS 

RIGHT JUSTIFY THE ADDRESS 

RIGHT JUSTIFY THE ADDRESS 

PROGRAM LOADED FROM THIS DRIVE ? 

BR IF YES, DON'T TEST THE DRIVE 

STORE POINTER TO THE. NEXT 

DRIVE FLAG 

GET THE DRIVE ADDRESS 
GO SHIFT IT TO THE RIGHT 

DRIVE NUMBER 

GO TYPE THE OCTAL # FOR THE 
DRIVE THAT IS BEING CHECKED 

INDEX TO TABLE 
SEE IF F 

NO 

; TYPE ASCIZ STRING 
; GET OVER THE ASCIZ 



;SET F FLAG 



; TYPE CR, LF 



;***** 

*TEST 



******** 



CHECK THAT DRIVE IS SUPPLIED WITH POWER-DPL BIT 



******** 



SCOPE 
CNT . RESET 



;G0, DO CONTROL RESET 
;THIS IS A CALL FOR THE 1 CNTRL- 
; RESET ' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE ' CNTRL RDY ' DOES NOT SET 
; AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
IPC WHERE 'CNT. RESET' IS LOCATED. 
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2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 



P1 1 


21-FEB-78 


08:51 




T3 


CHECK 


THAT DRIVE IS 


SUPPLIED WITH POWER-DPL BIT 
















JTHIS IS A VERY BASIC ERRS IF IT 
















; OCCURS GO BACK TO TEST 10 


005242 


01 3700 


001326 






MOV 


RKDS.RO 




005246 


01 3777 


001350 


174064 




MOV 


DRIVAD,@RKDA 


; ADDRESS THE DRIVE UNDER TEST 


005254 


005710 








TST 


@R0 


,'CHECK IF ANY BIT OF RKDS IS SET? 


005256 


001003 








BNE 


1$ 


; IF SET , BRANCH 


005260 


01 1037 


001 162 






MOV 


@RO,$REGO 


; GET RKDS 


005264 


104004 








ERROR 


4 


; RKDS ERROR! RKDS IF ADDRESSED 
















{CORRECTLY SHOULD BE NON-ZERO 


005266 


01 2777 


000015 


174036 


1$: 


MOV 


#15, ©RKCS 


; ISSUE A DRV RESET, IF DRVE 
















; POWER IS LO, DPL WILL SET 


005274 


005001 








CLR 


R1 




005276 


03271 


010000 




2$: 


BIT 


#10000, ©RO 


; IS 'DPL' BIT SET? 


005302 


001003 








BNE 


3$ 


;DPL IS SET , BRANCH 


005304 


005201 








INC 


R1 


{WAIT FOR SOME TIME TO 


005306 


001373 








BNE 


2$ 


;SEE IF DPL WOULD SET 


005310 


000403 








BR 




;0K, DPL NOT SET 


005312 


004737 


021002 




3$: 


JSR 


PC, GT3RG 


;G0, GET RKCS, ER. DS 


005316 


104005 








ERROR 


5 


;DPL BIT OF RKDS IS SET. CHECK DRIVE 


005320 


005001 








CLR 


R1 




005322 


03271 


000100 




4S: 


BIT 


#100, @R0 


;DID R/W/S RDY BIT SET? 


005326 


001010 








BNE 


TST4 


; ;YES, EXIT 


005330 


104417 


00001 1 






DELAY 


, 1 1 


; T IME DELAY 


005334 


005201 








INC 


R1 


; WAIT FOR R/W/S RDY 


005336 


001371 








BNE 


4$ 


005340 


01 7737 


173762 


001 162 




MOV 


@RKDS,$REGO 


; GET RKDS 


005346 


104016 








ERROR 


16 


; R/W/S RDY DID NOT SET AFTER 



{DRIVE RESET. DRIVE RESET WAS DONE 
;T0 CHECK 'DPL' BIT . THIS TEST 
; IS NOT FOR CHECKING DRIVE RESET. 
;U MIGHT WANT TO USE THE TEST PROVIDED 
; FOR CHECKING DRIVE RESET. 



005350 
005352 



000004 
104413 



********************************* 

4 CHECK THAT 'DRIVE UNSAFE 

******************************#** 

SCOPE 

CNT. RESET 



************* 
1 HDEN 1 IS SET. 



'WPS 1 IS CLEAR 



005354 
005362 
005366 
005372 
005374 
005400 



01 3777 
01 7700 
032700 
001403 
004737 
104006 



001350 
173740 
002000 



MOV 
MOV 
BIT 
BEQ 
JSR 
ERROR 



DRIVAD ,@RKDA 

©RKDS.RO 
#2000, RO 
1$ 

PC , GT3RG 

6 



;G0, DO CONTROL RESET 
;THIS IS A CALL FOR THE 1 CNTRL" 
; RESET ' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE 'CNTRL RDY' DOES NOT SET 
; AN ERROR IS REPORTED. NOTE THAT 
; THE PC _N ERROR MESSAGE IS THE 
; PC WHERE 'CNT. RESET' IS LOCATED. 
; THIS IS A VERY BASIC ERR & IF IT 
{OCCURS GO BACK TO TEST 10 
; SET DRIViI ADDRESS 

; GET RKDS 
; IS ' DRU 1 BIT OF RKDS SET? 
;N0 

;G0, GET RKCS, ER. DS 

; ' DRU ' BIT OF RKDS IS SET, CHECK 

;DRIV BY PUTTING RUN/LOAD SW TO LOAD 
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T4 CHECK THAT 1 DRIVE UNSAFE 1 IS CLEAR. 1 HDEN ' IS SET, 'WPS' IS CLEAR 



SEO 0045 



2374 






2375 


005402 


03 2700 


2376 


005406 


00 1 004 


2377 


0054 1 


01 7737 


2378 


0054 1 6 


1 04007 


2379 






2380 


005420 


032777 


2381 


005426 


00 1403 


2382 


005430 


004737 


2383 


005434 


1 041 1 4 


2384 






2385 






2386 






2387 






2388 






2389 






2390 






2391 






2392 






2393 


005436 


000004 


2394 


005440 


1 0441 3 


2395 






2396 






2397 






2398 






2399 






2400 






2401 






2402 






2403 






2404 


005442 


1 3777 


2405 


005450 


1 05777 


2406 


005454 


1 00403 


2407 


005456 


004737 


2408 


005462 


1 040 1 


2409 






241 






241 1 






24 1 2 






24 1 3 






241 4 






241 5 


005454 


00 0004 


24 1 6 


005466 


013777 


241 7 


005474 


005001 


24 1 8 


005476 


03 2777 


241 9 


005504 


00 1 006 


2420 


005506 


005201 


2421 


00551 


00 1 372 


2422 


00551 2 


01 7737 




005520 




2424 






2425 






2426 






2427 






2428 






2429 







004000 

173712 

000040 

020774 



173700 2$: 



BIT 
BNE 
MOV 
ERROR 

BIT 
BEQ 
dSR 
ERROR 



#4000, Rf- 
2$ 

@RKDS , SREGO 



#40,@RKDS 

TST5 

PC , GT4RG 

114 



; THEN BACK TO RUN 
; IS 1 HDEN 1 BIT SET? 
;YES, BRANCH 
; GET RKDS 

; ERROR , 1 RKOS ' BIT IS NOT SET 

; IS 'WPS' CLEAR? 

; ; YES. EXIT 

; GET RKCS, ER, OS, DA 

; ' WPS'-WRITE PROTECT STATUS- BIT OF 

;0F RKDS SHOULD BE CLEAR. IF THIS DRIVE 

; IS WRITE ENABLED. CHECK & SEE IF THIS 

; DRIVE IS WRITE ENABLED. IF IT IS NOT, 

; WRITE ENABLE IT. 



CHECK THAT ' DRIVE READY 1 



****** 
IS SET IN RKDS 



********* 



SCOPE 
CNT . RESET 



001350 
173652 



MOV 

TSTB 

BMI 

JSR 

ERROR 



DRIVAD,©RKDA 

@RKDS 
TST6 

PC , GT4RG 

10 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 1 CNTRL- 
RESET' ROUTINE. A CONTROL RESET I 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 1 CNTR L ROY' DOES NOT SET 
AN ERRC"" IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET 1 IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 
ADDRS THE DRIVE 
IS ' DRY ' SET? 
; YES, OK 

GO, GET RKCS, ER, DS . DA 
1 DRY' NOT SET 



****************************** 
CHECK THAT ' SOK ' BIT CAN SET 
THIS TEST CHECKS THAT WITHIN A CERTAIN TIME 



001350 
000400 



173644 
173622 



TST6: 

1$: 



173610 001162 



;* 1 SOK 


BIT CAN SET, 


IF IT DOES NOT AN ERROR 


IS REPORTED 






************************************************** 




SCOPE 










MOV 


DRIVAD.PRKDA 


; ADDRS THE DRIVE 






CLR 


R1 


; INITIALIZE COUNT FOR 


TIMING WAIT 


LOOP 


BIT 


#400,@RKDS 


; IS SOK SET? 






BNE 


TST7 


: ;EXIT 






INC 


R1 


;N0, WAIT 






BNE 


1$ 


•.WAITED LONG? 






MOV 


©RKDS, SREGO 


; GET RKDS 






ERROR 


1 1 


; WA I TED LONG BUT 'SEC 


OK 1 BIT DID 


NOT 



; ********* 

*TEST 7 



******** 

CHECK THAT 



:************* 

SECTOR COUNTER' 1 CAN COUNT FROM 0-13 
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2430 








2431 








2432 








2433 








2434 








2435 








2436 








2437 








2438 








2439 








2440 








2441 








2442 








2443 








2444 








2445 


005522 


000004 




2446 


005524 


104413 




2447 








2448 








2449 








2450 








2451 








2452 








2453 








2454 








2455 








2456 


005526 


01 3777 


001350 


2457 


005534 


01 3700 


001326 


2458 


005540 


005037 


001356 


2459 


005544 


005005 




2460 








2461 


005546 


012704 


177764 


2462 


005552 


012703 


000001 


2463 








2464 








2465 


005556 


005037 


001360 


2466 








2467 


005562 


005237 


001356 


2468 


0C5566 


001440 




2469 


005570 


005237 


001360 


2470 


005574 


001441 




2471 








2472 


005576 


01 1001 




2473 


005600 


032701 


000400 


2474 


005604 


001771 




2475 


005606 


021001 




2475 


00561 


00 1 362 




2477 


005612 


042701 


177760 


2478 


005616 


001357 




2479 








2480 


005620 


005204 




2481 


005622 


001447 




2482 


005624 


005205 




2483 


005626 


001431 




2484 


005630 


01 1002 




2485 


005632 


032702 


000400 
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T7 CHECK THAT ' SECTOR COUNTER ' CAN COUNT FROM 0-13 

THIS TEST CHECKS THAT THE SECTOR COUNTER CAN COUNT FROM 
0-13 

1 ) FIRST , FOR INITIALIZING PURPOSES THERE IS A TIMED LOOP 
DURING WHICH SECTOR COUNTER SHOULD COUNT DOWN TO 0. IF THIS 

IS NOT DONE AN ERROR IS REPORTED 

2) AFTER A COUNT OF IS REAC..ED. THE PROGRAM WAITS 
FOR A CERTAIN TIME, DURING WHICH THE SEC COUNTER 
IS SAMPLED. IF THE COUNTER DOES NOT CHANGE WITHIN THIS 
TIME PERIOD AN ERROR IS REPORTED. 

3) UPON FINDING THAT THE COUNTER HAS CHANGED. IT IS CHECKED 
IF IT INCREMENTED CORRECTLY. IF IT DID NOT AN ERROR IS REPORTED 

4) IF IT INCREMENTED CORRECTLY, THE PROGRAM AGAIN WAITS IN A 
LOOP TILL THE COUNTER CHANGES. (STEPS 2,3.4 ARE REPEATED 
TILL THE COUNTER COUNTS UP TO 13) 

*********************** 



SEO 0046 



TST7: 



SCOPE 

CNT. RESET 



3$: 
4$: 



MOV 
MOV 
CLR 
CLR 

MOV 
MOV 



CLR 

INC 
BEQ 

INC 
BEQ 

MOV 
BIT 
BEQ 
CMP 
BNE 
BIC 
BNE 

INC 
BEQ 
INC 
BEQ 
MOV 
BIT 



DRIVAD.^RKDA 

RKDS.RO 

INDX1 

R5 

#-14, R4 
#1 ,R3 



INDX2 

INDX1 

6S 

INDX2 
7$ 

©R0.R1 
#400, R1 

2$ 

0RO.R1 

1$ 

#177760. R1 

1$ 

R4 

TST10 

R5 
8$ 

§>R0,R2 
#400, R2 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 1 CNTR L— 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 1 CNTR L ROY 1 DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 

INITIALIZE 

' COUNT 1 - TO TIME ' ERROR 35' 
INITIALIZE 'COUNT' - TO TIME 
1 ERROR 36' (WAIT LOOP) 

INITIALIZE 1 COUNT' - FOR THE 12 SECTORS. 

R3 CONTAINS THE 'NEXT' COUNT OF SEC-CNTR 

R1 CONTAINS THE 'PREVIOUS' COUNT OF SEC-CNTR 

R2 CONTAINS THE 'PRESENT 1 COUNT OF SEC-CNTR 

INITIALIZE 'COUNT' - TO TIME 

(WAIT LOOP) ' ERROR 34' 

KEEP TIMING FOR ' ERROR 35' 

BRANCH & REPORT ERROR IF WAITED LONG? 

KEEP TIMING FOR 1 ERROR 34 ' 

BRANCH & REPORT ERROR IF WAITED LONG? 

; GET RKDS 

; IS 'SOK' SET? 

;NO, WAIT FOR IT TO SET 

; MAKE SURE THAT 2 CONSECUTIVE 

; READINGS OF SEC-CNTR ARE SAME 

;YES, MASK OUT NON-SEC CNTR BITS 

; IS IT SECTOR . IF NOT LOOP BACK & 

;WAIT FOR SECTOR 

; KEEP TRACK OF SECTORS CHECKED 

; ;EXIT. IF ALL SECTORS CHKD 

; KEEP TIMING FOR 1 ERROR 36' 

; BR & REPORT ERROR IF WAITED LONG 

; GET RKDS 

; IS SOK SET? 
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T7 CHECK THAT ' SECTOR COUNTER 1 CAN COUNT FROM 0-13 



2486 


005636 


00 1772 


2487 


005540 


021 002 


2488 


005642 


001370 


2489 


005644 


042702 


2490 


005550 


020201 


2491 


005652 


001764 


2492 


005654 


020203 


2493 


005656 


001023 


2494 






2495 


005660 


005203 


2496 


005662 


005201 


2497 


005664 


005005 


2498 


005666 


000754 


2499 






2500 


005670 


01 0137 


2S01 


005674 


104012 


2S02 






2503 


005676 


000421 


2504 






2505 


005700 


01 7737 


2506 


005706 


10401 1 


2507 






2508 


005710 


000414 


2509 






2510 


005712 


01 0237 


2511 


005716 


01 0337 


2512 


005722 


104013 


2513 






2514 






2515 


005724 


000406 


2516 






2517 


005726 


01 0337 


2518 


005732 


01 0237 


2519 


005736 


104014 


2520 






2521 






2522 


005740 


000747 


2523 






2524 






2525 






2526 






2527 






2528 






2529 






2530 


005742 


000004 


2531 


005744 


104413 


2532 






2533 






2534 






2535 






2536 






2537 






2538 






2539 






2540 






2541 


005746 


01 3704 



173432 Q011S2 7$: 



BEQ 
CMP 
BNE 
BIC 
CMP 
BEQ 
CMP 
BNE 

INC 
INC 
CLR 

BR 

MOV 
ERROR 



MOV 
ERROR 



MOV 
MOV 
ERROR 



MOV 
MOV 
ERROR 



4$ 

@R0,R2 
4$ 

#177760, R2 

R2.R1 

4$ 

R2.R3 

9$ 

R3 
R1 
R5 

3$ 

R1 ,$REGO 

12 



9RKD5 , SREGO 

11 



R2,$REG0 
R3 i SREG1 

13 



R3,$REG0 
R2.SREG1 

14 



NO, WAIT FOR SOK 

MAKE SURE THAT 2 CONSECUTIVE 

READINGS OF SEC-CNTR ARE SAME 

MASK NON-SEC-CNTR BITS 

HAS SEC CNTR INCREMENTED? 

NO, WAIT FOR IT TO CHANGE 

YES, DID IT INCREMENT CORRECTLY? 

NO - REPORT ERROR 

INCREMENT "NEXT COUNT" 
INCREMENT "PREVIOUS COUNT" 
INITIALIZE AGAIN FOR TIMING ' ERROU 36' 
GO & CHECK THE NEXT SECTOR COUNT 

GET ' SEC CNTR 1 

WAITED LONG, BUT SECTOR COUNTER 
DID NOT COUNT TO 

SEXIT 



BUT 'SOK' BIT DIO 



GET RKDS 
WAITED LONG, 
NOT SET 
;EXIT 



GET SEC CNTR (PRESENT COUNT) 

GET "NEXT COUNT" 

WAITED LONG, BUT THE SECTOR 

COUNTER DID NOT INCREMENT FROM 

THE PRESENT COUNT TO THE NEXT COUNT 

;EXIT 

GET 'NEXT COUNT 1 (SEC CNTR SHOULD BE THIS) 
GET PRESENT COUNT (WHAT SEC CNTR WAS ) 
SEC CNTR INCREMENTED WRONG, DID 
NOT INCREMENT FROM PRESENT COUNT 
TO NEXT COUNT 



*********************************************************** 
10 CHECK THAT SC=SA CAN BE GENERATED 

;* THIS TEST CHECKS THAT SC=SA CAN BE GENERATED FOR 
;* EVERY SECTOR 

*********************************************************** 
SCOPE 

;GO, DO CONTROL RESET 
jTHIS IS A CALL FOR THE 1 CNTRL- 
; RESET 1 ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE ! CNTR L RDY 1 DOES NOT SET 
; AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
; PC WHERE 'CNT. RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERR & IF IT 
; OCCURS GO BACK TO TEST 10 



CNT. RESET 



MOV 



DRIVAD.R4 
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T10 CHECK THAT SC=SA CAN BE GENERATED 



2542 


005752 


01 3700 


001326 




MOV 


RKDS, RO 








2543 


005756 


01 2703 


1 77764 




MOV 


■#-14, R3 






INITIALIZE COUNT FOR # OF SECTORS 


2544 


005762 


01 0477 


1 73352 


1$: 


MOV 


R4,@RKDA 






ADDRESS THE DRIVE 


2545 


005766 


005005 






CLR 


R5 






INITIALIZE COUNT - FOR TIMING ERROR 


2546 


005770 


005205 




2$: 




INC 


R5 






KEEP TIMING FOR ERROR 


2547 


005772 


001410 








BEQ 


3S 






, REPORT ERROR I F WAITED LONG 


2548 


005774 


01 1 001 






MOV 


@R0,R1 






GET RKDS 


2549 


005776 


032701 


000020 






BIT 


#20, R1 






IS SC=SA SET? 


2550 


006002 


001 772 






BEQ 


2$ 






NO, WAIT FOR IT 


2551 


006004 


005204 




4$: 




INC 


R4 






ADDRS THE NEXT SECTOR 


2552 


006006 


005203 








INC 


R3 






ARE ALL SECTORS CHECKED FOR SC=SA 


2553 


006010 


001 364 






BNE 


1$ 






NO, GO & CHECK NEXT 


2554 


006012 


000406 






BR 


TST1 1 






; YES, EXIT 


2555 






















2556 


006014 


1 1 0437 


001 162 


3$: 


MOVB 


R4, SREGO 






GET SECTOR ADDRESS 


2557 


006020 


01 0137 


001 164 




MOV 


R1 ,$REG1 






GET RKDS 


2558 


005024 


104015 






ERROR 


15 






COULD NOT GET SC=SA FOR THIS 


2559 




















'SECTOR ADDRESS' 


2560 


006026 


000766 






BR 


4$ 






GO CHK FOR THE REST 


2561 






















2562 








5 ;***** 




$****************** 


*** 


*********************************** 


2563 








;*TEST 


1 1 


CHECK THAT 


'R/W/S RDY' IS SET & 1 SIN' IS CLEAR 


2564 








***************************************************** ************ 


2565 


006030 


000004 




TST11 ! 


SCOPE 










2566 


006032 


104413 






CNT. RESET 






GO, DO CONTROL RESET 


2567 


006034 


01 3777 


001350 


173276 


MOV 


DRIVAD , (S&RKDA 




ADDRESS THE DRIVE 


2568 


006042 


005001 






CLR 


R1 








2569 


006044 


01 7700 


173256 


1$s 


MOV 


@RKDS,RO 






GET RKDS 


2570 


006050 


032700 


000100 




BIT 


#100, RO 






IS R/W/S RDY SET? 


2571 


006054 


001007 






BNE 


2$ 






YES, BRANCH 


2572 


006056 


005201 




3$: 


INC 


R1 






INCREASE LOOP TIME 


2573 


006060 


001376 






BNE 


3$ 






FOR DRIVE RESET OF HEADS 


2574 


006062 


005201 






INC 


R1 






WAITED LONG ENOUGH? 


2575 


C06064 


001367 






BNE 


1$ 






IF NOT LUP BAK & WAIT 


2576 


006366 


01 0037 


001 162 




MOV 


RO, SREGO 






GET RKDS 


2577 


006072 


104016 






ERROR 


16 






R/W/S RDY SHOULD BE SET 


2578 


006074 


032700 


001000 


2$: 


BIT 


#1000, RO 






IS SIN CLEAR? 


2579 


006100 


001403 






BEQ 


TST12 






;YES. EXIT 


2580 


006102 


004737 


020774 




JSR 


PC.GT4RG 






GET RKCS , ER , DS , DA 


2581 


0061 06 


104001 






ERROR 


1 






' SIN 1 SHOULD HAVE BEEN CLEAR 


2582 




















IT WAS NOT CLEAR 


2583 




















NEXT TEST IS GOING TO CHECK 


2584 




















DRIVE RESET, SIN SHOULD BE 


2565 




















CLEARED THEN. IT WILL BE CHECKED 


2586 




















THERE . 


2587 






















2588 










******** 


************ 


* * * 


*********************************** 


2589 








I *TEST 


12 


CHECK ' DRIVE RESET ' 


2590 












• THIS 


TEST CHECKS 


THE 


VERY BASIC DRIVE RESET LOGIC. 


2591 












*SINCE 


THE HEADS ARE 


AT 


CYLINDER (GOING INTO THIS 


2592 












*TEST) 


DRIVE RESET 


RETRACTS THEM BACK BEYOND CYLINDER 0, 


2593 












* AFTER 


WHICH THEY 


ARE 


PUSHED FORWARD TO CYLINDER AGAIN. 


2594 












*IN THE LATER PART 


OF 


THIS PROGRAM THERE IS A DRIVE RESET 


2595 












*TEST 


dHICH DOES THE 


RESET FROM LAST CYLINDER. 


2596 












************ 


*** 


*********************************** 


2597 


0061 10 


000004 




TST12: 


SCOPE 











MD-1 1-CZRKKF, RK1 1 BASIC LOGIC TEST 2 
CZRKKF.P11 21-FEB-78 08:51 



MACY11 30A( 1052) 21-FEB-78 08:58 PAGE 50 
T12 CHECK 'DRIVE RESET' 



2598 


0061 12 


1 0441 3 




2599 








2600 








2601 








2602 








2603 
















2605 








2606 
















2608 


0061 1 4 


01 3700 


001 332 


2609 


006 1 20 


00 5004 




9K1 n 


0061 22 




001 350 


261 1 


0061 30 


01 2 "no 


00001 5 


261 2 


0061 34 


1 0441 2 












261 4 


0061 36 


1 04021 




261 5 
















261 7 








261 8 


0061 40 


01 2705 


1 77776 


261 9 


0061 44 


032777 


0001 00 


2620 


0061 52 


00 1 402 




2621 


0061 54 


0001 37 


0061 76 


2622 


0061 60 


005204 




2623 


0061 62 


001370 




2624 


0061 64 


00 5205 






0061 66 


00 1 366 




2626 


006 1 70 


004737 


020774 




0061 74 


1 04026 




2628 
















2630 


0061 76 


032777 


001 000 


2631 


006204 


001403 




2632 


00620S 


004737 


020774 


2633 


0062 1 2 


1 0400 1 




2634 








2635 


0062 1 4 


03271 


140000 


2636 


006220 


00 1 403 




2637 


005222 


004737 


020774 


2638 


006226 


1 04022 




2639 








2640 


C06230 


02271 


00021 4 










2642 


006234 


00 1 406 






006236 




00021 4 


2644 


006244 


01 1037 


0011 64 


2645 


006250 


1 04024 




2645 








2647 








2648 








2649 








2650 








2651 








2652 








2653 









CNT. RESET 



2$: 
6$: 



MOV 
CLR 
MOV 
MOV 

CHKCRDY 

ERROR 



MOV 
BIT 
BEQ 

JMP 
INC 
BNE 
INC 
BNE 
JSR 
ERROR 



BIT 
BEQ 
JSR 
ERROR 

BIT 
BEQ 
JSR 
ERROR 

CMP 

BEQ 
MOV 
MOV 
ERROR 



RKCS.RO 

R4 

DRIVAD,8»RKDA 
#15,@R0 



#-2,R5 
#100,@RKDS 

.+6 

3$ 

R4 

6$ 

R5 

6$ 

PC , GT4RG 
26 



#1 000 ,@RKDS 

5$ 

PC , GT4RG 

1 

#140000, @R0 
4$ 

PC , GT4RG 

22 

#214, PRO 

TST13 

#214,$REG0 

@RQ,$REG1 
24 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE ' CNTRL- 
RESET ' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE ' CNTRL RDY 1 DOES NOT SET 
AN ERROr< IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 

INITIALIZ COUNT - TO TIME ERROR 

ADDRESS THE DRIVE 

'DRIVE RESET' , GO 

GO CHECK IF CONTROL RDY IS SET 

IF SO. SKIP THE EROR MESSAGE. 

CNTRL RDY DID NOT SET AFTER 

SENDING CYL ADDR TO THE DRIV. 

'ADD ACK 1 SHOULD HAVE COME BACK 

FROM DRIVE, THEREUPON SETTING 'CM RDY ' 

SET UP DELAY COUNTER 

CHECK FOR R/W/S READY 



GO, GET RKCS, ER , DS. DA 
R/W/S RDY DID NOT SET AFTER 
DRIVE RESET 

DID SIN SET? 

NO, BRANCH 

GO, GET RKCS, ER.DS.DA 
SIN SET, AFTER A 
DRIVE RESET. 

WAS 'ERR' BIT OR 'HE' BIT SET? 

NO 

GO, GET RKCS, ER, DS, DA 

'ERR' OR 'HE' BIT SET WHILE DOING 

DRIVE RESET 

DOES RKCS STILL CONTAIN THE 

'DRIV RES' BITS 
;YES. EXIT 
GET EXPCTD RKCS 
GET RKCS, RECVD 

NO - RKCS SHOULD CONTAIN THE 'DRIV 
FUNCTION, ERROR IF DIFFERENT. 



CHECK ' SEEK' TO CYLINDER 
THIS TEST CHECKS THE SEEK LOGIC DOING SEEK TO CYLINDER 0. 
NOTE THAT SINCE THE HEADS ARE ALREADY ON CYLINDER 0, NO 
HEAD MOVEMENT IS INVOLVEDN AND THE STRESS IS ON THE BASIC SEEK 
LOGIC. 
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ZRKKF 


P11 21-FEB-78 


08:51 




T13 


CHECK 1 


SEEK' TO CYLINDER 





2654 


















2655 


006252 


000004 






TST13: 


SCOPE 






2656 


006254 


104413 








CNT. RESET 


;G0, DO CONTROL RESET 


2657 
















, THIS IS A CALL FOR THE ' CNTRL- 


2658 
















; RESET 1 ROUTINE. A CONTROL RESET IS 


2659 
















; ISSUED AND AFTER A CERTAIN TIME 


2660 
















; IF THE 'CNTRL RDY ' DOES NOT SET 


2661 
















; AN ERROR IS REPORTED. NOTE THAT 


2662 
















; THE PC IN ERROR MESSAGE IS THE 


2663 
















; PC WHERE 'CNT. RESET' IS LOCATED. 


2664 
















;THIS IS A VERY BASIC ERR & IF IT 


2665 
















; OCCURS GO BACK TO TEST 10 


2666 


006256 


104421 








TST.SIN 




;G0 CHECK IF SIN SET. IF SET 


2667 
















A DO DRIVE RESET TO CLEAR T T 


2668 


006260 


01 3700 


001332 






MOV 


RKCS.RO 




2669 


006264 


01 3777 


001350 


173046 




MOV 


DRIVAD, @RKDA 


•ADDRESS THE DRIVE 


2670 


















2671 


006272 


01 2710 


000011 






MOV 


#11 ,@R0 


;'SEEK' GO 


2672 


006276 


104412 








CHKCRDY 




■GO CHECK IF CONTROL RDY IS SET 


2673 
















, IF SO, SKIP THE EROR MESSAGE. 


2674 


006300 


104021 








ERROR 


21 


' CNTRL RDY ' DID NOT SET AFTER SENDING 


2675 
















;CYL ADDR TO THE DRIVE, ' ADD ACK' 


2676 
















SHOULD HAVE COME BACK FROM THE 


2677 
















DRIVE, THEREUPON SETTING ' CNTRL RDY' 


2678 


006302 


005005 






2$: 


CLR 


R5 




2679 


006304 


032777 


000100 


173014 




BIT 


#100,§>RKDS 


DID R/W/S RDY BIT SET? 


2680 


006312 


001 005 








BNE 


3$ 


YES, BRANCH 


2681 


006314 


005205 








INC 


R5 


WAITED LONG ENOUGH? 


2682 


006316 


001372 








BNE 


2$+2 


IF NOT , LUP BAK & WAIT 


2683 


006320 


004737 


020774 






JSR 


PC , GT4RG 


GO, GET RKCS , ER . DS, DA 


2684 


006324 


1 04026 








ERROR 


26 


R/W/S RDY DID NOT SET AFTER SEEK 


2685 


006326 


032777 


001000 


172772 


3$: 


BIT 


#1000,@RKDS 


DID SIN SET? 


2686 


006334 


001403 








BEQ 


6$ 


NO, BRANCH 


2687 


006336 


004737 


020774 






JSR 


PC , GT4RG 


GO, GET RKCS, ER.DS.DA 


2688 


006342 


104001 








ERROR 


1 


SIN SET ON DOING SEEK 


2689 
















TO CYL NOTE THIS IS THE 


2690 
















FIRST TIME THE HEADS HAVE 


2691 
















BEEN MOVED 


2692 


















2693 


006344 


03271 


140000 




6$: 


BIT 


#140000, PRO 


WAS ' ERR ' OR 'HE' BIT SET? 


2694 


006350 


001403 








BEQ 


4S 




2695 


















2696 


006352 


004737 


020774 






JSR 


PC , GT4RG 


GO, GET RKCS, ER, DS. DA 


2697 


006356 


104022 








ERROR 


22 


1 ERR ' OR 'HE 1 ' BIT SET WHILE DOING ' SEEK 


2698 


















2699 


006360 


005777 


172744 




4$: 


TST 


©RKER 


WAS ANY BIT IN RKER SET? 


2700 


006364 


001403 








BEQ 


5$ 


NO 


2701 


006365 


004737 


021002 






JSR 


PC , GT3RG 


GO, GET RKCS, ER . DS 


2702 


006372 


104023 








ERROR 


23 


RKER SHOWS AN ERROR BIT, CHECK 


2703 


















2704 


006374 


022710 


000210 




5$: 


CMP 


#210, PRO 


DOES RKCS STILL CONTAIN 1 SEEK' FUNCTION 


2705 


006400 


001406 








BEQ 


TST14 


;YES. EXIT 


2706 


006402 


01 2737 


000210 


001162 




MOV 


#210,$REG0 


GET EXPCTD RKCS 


2707 


006410 


01 1 037 


001 164 






MOV 


0RO,$REG1 


GET RKCS RECVD 


2708 


006414 


104024 








ERROR 


24 


NO, RKCS SHOULD BE STILL CONTAINING 


2709 
















' SEEK' FUNCTION ERROR - IF IT CHANGED 



SEQ 0050 
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T13 CHECK 'SEEK' TO CYLINDER 



SEO 0051 



2710 






271 1 






2712 






271 3 






2714 






2715 






271 5 






271 7 






2718 






2719 






2720 






2721 


006416 


000004 


2722 


006420 


104413 


2723 






2724 






2725 






2726 






2727 






2728 






2729 






2730 






2731 






2732 


006422 


104421 


2733 






2734 


006424 


004737 


2735 


006430 


1 0402-6 


2736 






2737 


006432 


005005 


2738 


006434 


01 3777 


2739 


005442 


052777 


2740 


006450 


01 3701 


2741 


006454 


01 2777 


2742 


006462 


03271 1 


2743 


006466 


001405 


2744 


006470 


005205 


2745 


006472 


100373 


2746 


006474 


004737 


2747 


006500 


104025 


2748 






2749 






2750 


006502 


004737 


2751 


006506 


10401 6 


2752 






2753 






2754 






2755 






2756 






2757 






2758 






2759 






2760 






2761 






2762 






2763 






2764 






2765 







14 CHECK R/W/S ROY IS CLEAR WHEN HEADS ARE IN MOTION 

kTHIS TEST CHECKS THAT R/W/S DOES GET CLEARED 
(■WHEN THE HEADS ARE IN MOTION. SINCE 'MOVE L 1 ON 
(-M7700 (RK055 GENERATES THIS SIGNAL, ABSENCE OF 
;*R/W/S RDY-CLEAR COULD MEAN A FAULT ON M7702 
*WHERE 1 MOVE L 1 IS GENERATED. 

;*NOTE THIS IS THE FIRST TIME HEADS ARE MADE TO MOVE BY SEEKING 
*T0 CYLINDER 2. 

TST14: SCOPE 

CNT . RESET ? GO , DO CONTROL RESET 

;THIS IS A CALL FOR THE 1 CNTRL- 
; RESET" ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE 'CNTRL RDY 1 DOES NOT SET 
; AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERR & IF IT 
; OCCURS GO BACK TO TEST 10 

TST.SIN ;GO CHECK IF SIN IS SET 

; IF SET DO DRV-RESET TO CLR IT 

JSR PC.DRESET ; MAKE SURE HEADS R ON CYL 

ERROR 26 ; R/W/S R?Y DIDN'T SET 

'.AFTER THE ABOVE DRV RESET 



172676 
172670 



001326 
00001 1 
000100 



CLR 
MOV 
BIS 
MOV 
MOV 
BIT 
BEQ 
INC 
BPL 
JSR 
ERROR 



JSR 
ERROR 



RS 

DRIVAD ,@RKDA 

#1OO,0RKDA 

RKDS.R1 

#1 1 ,(S»RKCS 

#100, 9R1 

2$ 

R5 

1$ 

PC.GT3RG 
25 



PC.TSTRWS 

16 



; SEEK CYLINDER 2 
,'SEEK, GO 

;DID R/W/S RDY CLR? 
; YES, BRANCH 



; R/W/S RDY WAS NOT CLEAR WHEN HEADS 
; WERE SEEKING TO CYLINDER 2 

;GO. WAIT FOR R/W/S RDY TO SET 

; R/W/S RDY DID NOT SET AFTER SEEK 

;WAS TRIED TO CYLINDER 2 (ABOVE) . 

; NOTE THIS WAS THE FIRST TIME A SEEK 

; WAS TRIED TO A CYLINDER OTHER THAN 

;o. 



;*TEST 15 CHECK 'WRITE' FORMAT FUNCTION-CYLINDER 0, SECTOR 

;*THIS TEST CHECKS THE LOGIC INVOLVED IN THE WRITE FMT 
♦FUNCTION. ON ISSUING A WRT FMT , THE FOLLOWING IS CHECKED 
*1 ) CNTRL RDY WAS CLEARED AS GO WAS SET. 

*2) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION OF FUNCTION 



MD-1 1-CZRKKF, RK1 1 BASIC LOGIC TEST 2 
CZRKKF. P1 1 21-FEB-78 08:51 
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T15 CHECK 'WRITE ' FORMAT FUNCTION-CYLINDER 0, 



SECTOR 



SEO 0052 



2766 






2767 






2768 






2769 






2770 






2771 






2772 






2773 






2774 






2775 


006510 


000004 


2776 


006512 


104413 


2777 






2778 






2779 






2780 






2781 






2782 






2783 






2784 






2785 






2786 


006514 


104421 


2787 






2788 


006516 


012703 


2789 






2790 






2791 






2792 






2793 






2794 






2795 






2796 






2797 






2798 






2799 






2800 






2801 






2802 


006522 


01 2700 


2803 






2804 


006526 


01 0023 


2005 


005530 


01 001 3 


2806 


006532 


005423 


2807 


006534 


005200 


2808 


006536 


022700 


2809 


006542 


001 371 


281 


006544 


005023 


281 1 


006546 


01 2713 


2812 






2813 


006552 


01 2703 


2814 


006556 


01 3701 


2815 


006562 


01 3702 


2816 


006566 


01 0312 


281 7 


006570 


01 2777 


2818 


006576 


01 3777 


2819 


006604 


01 271 1 


2820 






2821 


006610 


10571 1 



>3) IF 'HE' OR 'ERR' BIT SET? 

1=4) IF RKDA INCREMENTED CORRECT LY FROM TO 1? 

► 5) IF RKWC OVERFLOWED CORRECTLY TO 0? 

«6) IF RKBA INCREMENTED CORRECTLY BY 2? 

>7) IF ANY BIT IN RKER SET? 

*8) . IF THE ' WRT FMT ' FUNCTION uITS ARE STILL IN THE RKCS? 
;*NOTE THAT ONE WORD ' 125252' WAS WRITTEN ON SECTOR 

*0 & IT WILL BE CHECKED IN THE NEXT TESTS. 

TST15: SCOPE 

CNT. RESET ; GO , DO CONTROL RESET 

;THIS IS A CALL FOR THE 1 CNTRL- 
; RESET ' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE 1 CNTRL RDY ' DOES NOT SET 
; AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERR & IF IT 
; OCCURS GO BACK TO TEST 10 

TST.SIN ;GO CHECK- IF SIN IS SET 

; IF SET, DO DRIVE RESET TO CLR IT 



MOV 



#0UTBUF,R3 



THIS CODE SETS UP A 256 WORD BUFFER 
WHICH WILL BE USED TO WRITE 1 SECTOR 
ON THE DISK 

1ST WORD 000001 

2ND WORD 177777 

3RD WORD 000002 

4TH WORD 1 77776 



2'S COMPLEMENT 

OF ABOVE 



253RD WORD 
254TH WORD 
255TH WORD 
256TH WORD 



000177 
177601 
000000 
125252 



033342 
001332 
001336 



172536 
1725?-'' 



MOV 

MOV 
MOV 
NEG 
INC 
CMP 
BNE 
CLR 
MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



#1 ,RO 

RO, (R3)+ 
RO, (R3) 
(R3) + 
RO 

#200, RO 
9$ 

(R3) + 

#1 25252, m3 

#OUTBUF,R3 
RKCS , R1 
RKBA, R2 
R3,<PR2 
#-400 ,@RKWC 
DRIVAD, PRKDA 
#2003, 0>R1 

§>R1 



;SET COUNT 

;SET UP DATA WORDS 



;SET 255TH WORD TO 
;SET 256TH WORD 



; RESET POINTER TO OUTBUF 



FROM HERE-SET UP CURRENT ADDRESS 

SET UP WORD COUNT 400 WORDS 

SET UP DISK ADDRS, SECTOR 0, CYLINDER 

WRITE FORMAT , GO 

;WAS 'CNTRL RDY 1 CLEARED AS GO WAS SET? 



SEQ 0053 



2822 


00661 2 


1 00003 




2823 


006614 


004737 


021 002 


2824 


006620 


1 04030 




2825 








2826 


006622 


005000 




2827 


006524 


1 0571 1 




2828 


006626 


10041 1 




2829 


006630 


005200 




2830 


006632 


00 1 374 




2831 








2832 


006634 


004737 


020774 


2833 


006640 


01 3737 


001 350 


2834 


006646 


1 0441 6 




2835 








2836 


006650 


104031 




2837 








2838 








2839 








2840 


006652 


004737 


021234 


2841 








2842 








2843 


006656 


104032 




2844 








2845 








2846 








2847 


006660 


004737 


021 262 


2848 








2849 


006664 


1 04033 




2850 








2851 


006666 


004737 


021 31 6 


2852 








2853 


006672 


1 04034 




2854 








2855 


006674 


02271 2 


034342 


2856 


006700 


001406 




2857 


006702 


01 2737 


034342 


2858 


006710 


01 1 237 


001 1 64 


2859 


006714 


1 04035 




2860 








2861 


006716 


004737 


021 342 


2862 








2863 


006722 


1 04036 




2864 








2E65 


006724 


02271 1 


002202 


2866 


006730 


00 1 406 




2867 


006732 


01 2737 


002202 


2868 


006740 


01 1 1 37 


001 1 64 


2669 


006744 


1 04024 




2870 








287 1 








2872 








2873 








2874 








2875 








2876 








2877 









BPL 
JSR 
ERROR 

CLR 

TSTB 

BMI 

INC 
BNE 

JSR 
MOV 

BRKDA4 



YES, BRANCH 
GO, GET RKCS , ER , DS 
' CNTRL RDY ' DIDN'T CLEAR AS GO 
WAS SET TO 'WRITE FORMAT 1 

WAS 1 CNTRL RDY 1 SET ON COMPLETION OF WRITE? 
YES. BRANCH 

NO, HAVE U WAITED LONG ENOUGH? 
I F NOT , LOOP BACK & WAIT 
IF YES, REPORT ERROR 
GO. GET RKCS, ER . DS . DA 

GO TO 1 BDA4 1 & BREAK CONTENTS OF 
SREG10 INTO DR # , CY L , SUR , STC BITS 
'CNTRL RDY ' DIDN'T SET ON COMPLETION 
OF WRITE FORMAT 

WRT FMT WAS DONE STARTING AT <DSK-ADRES> 
INDICATED IN EROR MSGE. 
GO CHECK IF 1 HE ' OR 1 ERR 1 BIT SET. 
IF YES, SAVE RKCS, ER. DS, DA. 
RETURN HERE IF ERROR. 
'HE' OR 'ERR' BIT SET WHILE DOING 
A WRITE FORMAT 

WRT FMT WAS DONE STARTING AT <DSK-ADRES> 
INDICATED IN EROR MSGE. 

GO CHECK IF RKDA INCREMENTED CORRECT LY 
IF NOT . RETURN HERE. 
RKDA SHOULD HAVE INCREMENTED BY 
1 SECTOR. IT DID NOT 
CHECK I F WORD COUNT OVERFLOWED, IF 
NOT RETURN HERE. 

RKWC DID NOT OVERFLOW TO . AFTER 
XFER ON WRITE FORMAT 
@R2 ; DID RKBA INCREMENT CORRECTLY? 

YES. BRANCH 
,$REGO ; GET EXPCTD RKBA 
GET ACTUAL RKBA 

RKBA DIDN'T INCREMENT BY 1000 AFTER 
WRITE FORMAT OF 400 WORDS 
CHECK IOF ANY BIT IN RKER SET. 
I F YES RETURN HERE. 
RKER BIT SET ON DOING 1 WORD 
WRITE FORMAT 

DOES RKCS STI LL HAVE 'WRT FMT ' BITS? 
; YES. EXIT 
GET EXF-JTD RKCS 
GET ACTUAL RKCS 

RKCS DIDN'T CONTAIN 'WRT FIVi T ' BITS 
AFTER THE FUNCTION WAS COMPLETED 

*TEST 16 CHECK ' READ FORMAT ' FUNCTION-CYLINDER . SECTOR 

; *THIS TEST CHECKS THE LOGIC INVOLVED IN THE WRITE FMT 
^FUNCTION. ON ISSUING A WRT FMT. THE FOLLOWING IS CHECKED 
*1 ) CNTRL RDY WAS CLEARED AS GO WAS SET. 

*2) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION OF FUNCTION 



JSR 

ERROR 

JSR 

ERROR 

CMP 
BEQ 
MOV 
MOV 
ERROR 

JSR 

ERROR 

CMP 
BEQ 
MOV 
MOV 
ERROR 



2$ 

PC , GT3RG 

30 

RO 

mi 

3$ 
RO 

2$+2 

PC , GT4RG 
DRIVAD , SREG1 



PC.CHKHE 



PC , CHKDA 

33 

PC.CHKWC 

34 

#OUTBUF+1000 

7$ 

#OUTBUF+100Q 

@R2,$REG1 

35 

PC , CHKER 

36 

#2202, @>R1 
TST16 

#2202,$REGO 
<PR1 ,$REG1 
24 



MD-1 1-CZRKKF, 
CZRKKF.P1 1 



RK11 BASIC LOGIC TEST 2 
21-FEB-78 08:51 
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T16 CHECK ' READ FORMAT 1 FUNCTION-CYLINDER 0. SECTOR 



SEQ 0054 



2878 






2879 






2880 






2881 






2882 






2883 






2884 






2885 






2886 






2887 






2888 






2889 






2890 






2891 






2892 






2893 


006746 


000004 


2894 


006750 


005000 


2895 


006752 


104413 


2896 






2897 






2898 






2899 






2900 






2901 






2902 






2903 






2904 






2905 


006754 


104421 


2906 






2907 


006756 


01 3701 


2908 


006762 


01 3702 


2909 


006766 


01 2703 


2910 


006772 


01 0312 


291 1 






2912 


006774 


01 2777 


2913 


007002 


01 3777 


2914 


007010 


01 271 1 


2915 






2916 


007014 


10571 1 


2917 


007016 


100003 


2918 


007020 


004737 


2919 


007024 


104030 


2920 






2921 


007026 


005000 


2922 


007030 


1 0571 1 


2923 






2924 


007032 


10041 1 


2925 


007034 


005200 


2926 


007036 


001374 


2927 






2928 


007040 


004737 


2929 


007044 


01 3737 


2930 


007052 


104416 


2931 






2932 


007054 


104045 


2933 







001332 
001336 
033342 



177777 
001350 
002005 



172332 
172330 



IF 'HE' OR ' ERR 1 BIT SET? 

IF RKDA INCREMENTED CORRECTLY FROM TO 1? 
IF RKWC OVERFLOWED CORRECTLY TO 0? 
IF RKBA INCREMENTED CORRECTLY BY 2? 
IF ANY BIT IN RKER SET? 
IF THE CORRECT HEADER WAS RECEIVED? 

FOR RK11C, AFTER RD FMT RKDB CONTAINS THE CHECKSUM 
FOR THAT SECTOR. (125252 IN THIS CASE, BECAUSE THE 
FIRST WORD IN SEC WAS WRITTEN AS 125252 IN 
THE PREVIOUS TEST) 

10) FOR RK1 1D. AFTER RD FMT RKDB SHOULD CONTAIN 
A ZERO 

11) IF THE RD FMT FUNCTION BITS ARE STILL IN 
THE RKCS? 

SCOPE 

CLR RO 

CNT. RESET ; GO . DO CONTROL RESET 

THIS IS A CALL FOR THE 1 CNTRL" 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 



TST.SIN 




;G0 CHECK IF SIN IS SET 






;IF SET, DO DRIVE RESET TO CLR IT 


MOV 


RKCS.R1 




MOV 


RKBA.R2 




MOV 


#0UTBUF,R3 




MOV 


R3,@R2 


; SETUP ADRS WHERE HEADER WORD IS TO BE 






; X-FERRED 


MOV 


#-1 ,@RKWC 


; SET UP WORD COUNT 


MOV 


DRIVAD, @RKDA 


; SET UP DISK ADRS. SECTOR 0. CYLINDER 


MOV 


#2005, ©R1 


; READ FORMAT. GO 


TSTB 


§>R1 


; WAS 'CNTRL RDY ' CLEARED AS GO WAS SET? 


BPL 


2$ 


; YES. BRANCH 


JSR 


PC, GT3RG 


;G0, GET RKCS, RKER 


ERROR 


30 


; CNTRL RDY DIDN'T CLEAR AS GO WAS 






;SET TO ' READ FORMAT ' 


CLR 


RO 




TSTB 


@R1 


; WAS 'CNTRL RDY' SET ON COMPLETION OF 






; TRANSFER 


BMI 


3$ 


; YES. BRANCH 


INC 


RO 


;N0, HAVE U WAITED LONG ENOUGH? 


BNE 


2$+2 


; IF NOT , LOOP BACK & WAIT 






; IF YES, REPORT ERROR 


JSR 


PC , GT4RG 


;G0. GET RKCS. ER. DS . DA 


MOV 


DRIVAD, SREG10 




BRKDA4 




;G0 TO 1 BDA4 ' & BREAK CONTENTS OF 






;SREG10 INTO DR # . CY L , SUR , S C C BITS 


ERROR 


45 


; 'CNTRL RDY' DIDN'T SET ON COMPLETION 



OF READ FORMAT 



MD-1 1-C2RKKF, RK1 1 BASIC LOGIC TEST 2 
CZRKKF.P1 1 21-FEB-78 08:51 



2934 
2935 

2936 007056 
2937 

2938 007062 

2939 

2940 

2941 

2942 007064 
2943 

2944 007070 

2945 

2946 

2947 007072 

2948 

2949 007076 
2950 

2951 007100 

2952 007104 

2953 0071 06 

2954 0071 14 

2955 007120 
2956 

2957 007122 
2958 

2959 007126 

2960 

2961 007130 

2962 

2953 0071 32 

2964 007134 

2965 007140 

2966 007144 

2967 007150 
2968 

2969 0071 52 

2970 007156 

2971 C07160 

2972 007166 

2973 007172 
2974 

2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
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T16 CHECK 1 READ FORMAT ' FUNCTION-CYLINDER 0, SECTOR 



004737 


021234 




3$: 


JSR 


PC , CHKHE 


«-•••-- - • 

CHECK I F 'ERR' OR 1 HE 1 BIT SET , I F 












YES RETURN HERE. 










ERROR 


46 


'HE' OR 1 ERR 1 BIT SET WHILE 












DOING A ' READ FORMAT 1 














KtAU rlvll W Ai> UUNt DlAKIiNu A 1 *»uar\ MuntS' 














INDICATED IN EROR MESGE 


004737 


021262 




4$: 


JSR 


PC, CHKDA 


CHECK I F RKDA INCREMENTED CORRECTLY 










I F NOT, RETURN HERE. 


104040 








ERROR 


40 


HKUA 5HUULD HA v t I NLKfcMtN 1 tU 












BY 1 SECTOR , I T DID NOT 


004737 


021316 




s$; 


JSR 


PC.CHKWC 


CHECK I F RKWC OVER FLOWED TO O, I r 










NOT RETURN HERE . 


104041 








ERROR 


41 


RKWC DID NOT OVERF LOW TO 












»CTCn yccn nM DC AH CDDMA T 

A r I CK Artn UN KtAU r UKIYIA 1 


022712 


033344 




6$: 


CMP 


0OUTBUF+2, @R2 


DID RKBA INCREMENT TO NXT WORD ADDRS? 


001406 






BEQ 


7$ 


YES , BRANCH 


01 2737 


033344 


001 162 




MOV 


#0UTBUF+2,$REG0 


GET EXPCTD RKBA 


01 1237 


001164 






MOV 


@R2 , $REG1 


otT ACTUAL RKBA 


104042 






ERROR 


42 


RKBA DIDN'T INCREMENT BY 2 AFTER 












Inein C O D M A T 1 DC 1 wnon 
KtAU rUKIYlA I UP l WUKy 


004737 


021342 




7$s 


JSR 


PC t CHKER 


^UC^W TE AMV HTT flu Bl/eD CUT TP 

WHcgK IF ANY D 1 I IN KKfcK 3E 1 • ir 










Yea Return hsre,. 


104036 








ERROR 


36 


RKER BIT SET ON DOING 












1 WORD READ FORMAT 


005713 






8$: 


TST 


@R3 


DOES 0UTBUF CONTAIN THE HEADER 












WORD— 


001407 








BEQ 


9$ 


YES , BRANCH 


005037 


001 162 






CLR 


$REGO 


net CCOTflD KID 

bcl StCTUR NU . 


005037 


001 164 






CLR 


$REG1 


EXPCTD HEADER 


011 337 


001 1 66 








<PR3 , $REG2 


GET HEADER RECVD 


104043 






ERROR 


43 


CORRECT HEADER W0RD-0-WAS 












NOT RECEIVED ON READ FORMAT 


02271 1 


002204 




9$: 


CMP 


#2204, @R1 


DOES RKCS HAVE THE 1 RDFMT 1 BITS? 


001406 








BEQ 


TST17 


; YES. BRANCH 


01 2737 


002204 


001162 




MOV 


#2204,$REG0 


GET EXPCTD RKCS 


01 1 137 


001164 






MOV 


<S>R1 ,$REG1 


GET ACTUAL RKCS 


104024 






ERROR 


24 


RKCS DIDN'T CONTAIN ' RD FMT ' 



READ FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 



BITS AFTER FUNCTION WAS 
COMPLETED 



CHECK 1 READ' FUNCTION-CYLINDER 0. SECTOR 
*THIS IS THE FIRST TIME A PURE READ IS PREFORMED IN THIS 
*TEST SEQUENCE. THE FOLLOWING IS CHECKED 
*1 ) CNTRL RDY CLEARS AS GO IS SET 

*2) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
*0F FUNCTION 

*3) IF 'HE' OR 'ERR 1 BIT SET? 

*4) IF RKDA INCREMENTED CORRECTLY? 

*5) IF RKWC OVERFLOWED TO 0? 

*6) IF RKBA INCREMENTED CORRECTLY? 



MD-1 1-CZRKKF, RK1 1 BASIC LOGIC TEST 2 
CZRKKF . P1 1 21-FEB-78 03:51 



2990 






2991 






2992 






2993 






2994 






2995 


0071 74 


000004 


2996 


007176 


104413 


2997 






2998 






2999 






3000 






3001 






3002 






3003 






3004 






3005 






3006 


007200 


104421 


3007 






3008 


007202 


01 3701 


3009 


007206 


005000 


3010 


007210 


01 3702 


301 1 


007214 


01 2703 


3012 


007220 


01 0312 


3013 






3014 


007222 


01 2777 


3015 


007230 


01 3777 


3016 


007236 


01 271 1 


3017 






3018 


007242 


10571 1 


3019 


007244 


100003 


3020 


007246 


004737 


3021 


007252 


104030 


3022 






3023 


007254 


005000 


3024 


007256 


10571 1 


3025 






3026 


007260 


10041 1 


3027 


007262 


005200 


3028 


007264 


001374 


3029 






3030 


007266 


004737 


3031 


007272 


01 3737 


3032 


007300 


104416 


3033 






3034 


007302 


104045 


3035 






3036 






3037 






3038 






3039 


007304 


004737 


3040 






3041 


007310 


104046 


3042 






3043 






3044 






3045 


007312 


004737 
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T17 CHECK ' READ 1 FUNCTION-CYLINDER .SECTOR 

7) IF ANY RKER BIT SET? 

8) IF THE CORRECT PSUED0-HEADER (FIRST WORD) WAS 
READ FROM SECTOR 

9) IF THE ' READ 1 FUNCTION BITS ARE STILL IN RKCS 

;j ************************************************* ******** 
TST17: SCOPE 



CNT. RESET 



177400 
001350 
000005 



172104 
172102 



020774 

001350 



MOV 
CLR 
MOV 
MOV 
MOV 

MOV 

MOV 
MOV 

TSTB 
BP L 
JSR 
ERROR 

CLR 
TSTB 

BMI 
INC 
BNE 

JSR 
MOV 

BRKDA4 



RKCS , R1 

RO 

RKBA.R2 

#0UTBUF,S3 
R3,$R2 

#-400 , ©RKWC 

DRIVAD,S»RK0A 

#5,@R1 



2$ 

PC.GT3RG 

30 

RO 
@R1 

3$ 

RO 

2$+2 

PC , GT4RG 
DRIVAD , $REG1 



JSR PC, CHKHE 

ERROR 46 



JSR PC, CHKDA 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE ' CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN "I IME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LO'ATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET 
IF SET, DO DRIVE RESET TO CLR IT 



SET UP ADDRS WHERE DATA WORD IS 
TO BE X-FERRED 
SET UP WORD COUNT 

SET UP DISK ADRS, SECTOR 0, CYLINDER 
READ, GO 

WAS 'CNTRL RDY' CLEARED AS GO WAS SET? 

YES, BRANCH 

GO, GET RKCS, ER 

CNTRL RDY DID NOT CLEAR AS GO 

WAS SET TO ' READ' 

WAS CNTRL RDY SET ON COMPLETION 
OF TRANSFER? 
YES, BRANCH 

NO, HAVE U WAITED LONG ENOUGH? 
IF NOT , LOOP BACK & WAIT 
IF YES , REPORT ERROR 
GO, GET RKCS , ER, DS.DA 

GO TO ' BDA4 1 & BREAK CONTENTS OF 
SREG1 INTO DR # , CY L , SUR , SEC BITS 
CNTRL RDY DID NOT SET ON 
COMPLET -ON OF READ 

READ WAS DONE STARTING AT <DSK-ADRES> 
INDICATED IN EROR MESGE 

CHECK I F 1 ERR ' OR 'HE' BIT IS SET 
IF YES, RETURN HERE 
'HE' OR ' ERR ' BIT SET WHILE 
DOING A READ . 

READ WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

CHECK IF RKDA INCREMENTED CORRECTLY, 



MO-1 1-CZRKKF, RK11 BASIC LOGIC 
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TEST 2 MACY11 
T17 
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CHECK 1 READ 1 FUNCTION-CYLINDER 0, SECTOR 



SEQ 0057 



3046 








3047 


007316 


1 04040 




3048 








3049 


007320 


004737 


021316 


3050 








3051 


007324 


104041 




3052 








3053 


007326 


02271 2 


034342 


3054 


007332 


001406 




3055 


007334 


01 2737 


034342 


3055 


007342 


01 1237 


001 1 64 


3057 


007346 


104042 




3058 








3059 


007350 


004737 


021342 


3060 








3061 


007354 


104036 




3062 








3063 


007356 


022713 


000001 


3064 








3065 


007362 


00141 1 




3066 


007364 


01 2737 


000001 


3067 


007372 


01 1337 


001 164 


3068 


007376 


01 3737 


001350 


3069 


007404 


104044 




3070 








3071 








3072 








3073 








3074 








3075 








3076 








3077 








3078 








3079 








3080 








3081 








3082 








3083 








3084 


007406 


022777 


125252 


3085 


007414 


001407 




3086 


C07416 


01 2737 


125252 


3087 


007424 


01 7737 


171712 


3008 


C07432 


104037 




3089 








3090 








3091 


007434 


02271 1 


000204 


3092 


0C7440 


001406 




3C93 


0C7442 


01 2737 


000204 


3094 


007450 


01 1 1 37 


001 164 


3095 


007454 


1 04024 




3096 








3097 








3098 


007456 


104413 




3099 


007460 


005777 


171656 


3100 


007464 


001407 




3101 


007466 


01 3737 


001342 



001162 
001166 



171726 9$: 



001 162 
001 164 



ERROR 

JSR 

ERROR 

CMP 
BEQ 
MOV 
MOV 
ERROR 

JSR 

ERROR 

CMP 

BEQ 
MOV 
MOV 
MOV 
ERROR 



CMP 
BEQ 
MOV 
MOV 
ERROR 



CMP 
BEQ 
MOV 
MOV 
ERROR 



41 

#OUTBUF+1000 
7$ 

#OUTBUF+1000 

@R2,$REG1 

42 

PC , CHKER 

36 

#1 ,@R3 
9$ 

#1 ,$REGO 
(R3) ,$REG1 
DRIVAD.SREG2 
44 



#125252, @RKDB 
10$ 

# 1 25252 , SREGO 
@RKDB , SREG1 

37 



#204, @R1 

11$ 

#204, SREGO 
@R1 ,$REG1 

24 



CNT. RESET 
TST PRKDB 
BEQ TST20 
MOV RKDB, $REG1 



IF NOT RETURN HERE . 
RKDA DID NOT INCREMENT 
BY 1 (SECTOR) 

CHECK IF RKWC OVERFLOWED TO 0, 
IF NOT RETURN HERE. 
RKWC DID NOT OVERFLOW TO 0, 
AFTER X-FER ON READ 
§>R2 ;DID RKBA INCREMENT CORRECTLY? 

YES , BRANCH 
SREGO ; GET EXPCTD RKBA 

GET ACTUAL RKBA 
RKBA DID NOT INCREMENT BY 2 
; AFTER 'READ' OF 1 WORD 
CHECK IF ANY BIT IN RKER SET, 
IF YES RETURN HERE. 
RKER BIT SET ON DOING 1 
WORD ' READ' 

DDES OUTBUF CONTAIN THE RIGHT 
DATA WORD 
YES BRANCH 

GET EXPCTD DATA WORD 
GET RECVD DATA WORD 

GET DISK ADRS FROM WHICH READ WAS DONE 
DID NOT READ THE CORRECT 
DATA WORD—FROM DISK ADRES, 

SEC 0, CYL 0, SUR 

AFTER 1 SECTOR READ RKDB CONTAINS 

FOR RK11C 

THE CHECKSUM FOR THAT SECTOR 

FOR RK11D 

THE LAST WORD TRANSFERRED TO MEMORY 

IT SO HAPPENS THAT WITH THE SECTOR 
THAT WAS READ, RKDB CONTAINS THE 
SAME INFORMATION FOR BOTH RK1 1 C 
AND RK1 1 D 

DOES RKDB CONTAIN THE EXPCTD WORD? 
YES, BRANCH 
GET EXPCTD RKDB 
GET RECVD RKDB 
RKDB DOESD NOT CONTAIN THE 
EXPCTD WORD AFTER A READ OF SEC 
CYL 

DOES RKCS HAVE THE ' READ' BITS? 
YES , BRANCH 
GET EXPCTD RKCS 
GET RECVD RKCS 
RKCS DID NOT CONTAIN 1 READ ' 
FUNCTION BITS AFTER OPERATION 
WAS COMPLETED 
GO DO CONTROL RESET 
DID CONTROL RESET CLEAR RKDB? 
; YES, EXIT 
GET ADRES OF RKDB 



MD - 1 1-CZRKKF, RK1 1 BASIC LOGIC TEST 2 
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T17 CHECK ' READ' FUNCTION-CYLINDER . SECTOR 



SEQ 0058 



3102 


007474 


01 7737 


171642 


3103 


007502 


1041 02 




31 04 








3105 








31 06 








31 07 








3108 








3109 








31 1 








31 1 1 








3112 








3113 








3114 








31 15 








31 16 








31 17 








31 18 








3119 


007504 


000004 




3120 


007506 


01 3703 


001332 


3121 


007512 


01 2702 


177764 


3122 


007516 


01 3704 


001340 


3123 


007522 


01 3701 


001350 


3124 


007526 


01 01 05 




3125 


007530 


005205 




3126 


007532 


01 2737 


007540 


3127 








3128 


007540 


104413 




3129 








3130 








3131 








3132 








3133 








3134 








3135 








3136 








3137 








3138 


007542 


104421 




3139 








3140 


007544 


005000 




3141 


007546 


01 0137 


033342 


3142 








3143 








3144 








3145 








3146 


007552 


01 2777 


033342 


3147 








3148 


007560 


01 2777 


177777 


3149 


007566 


010114 




3150 


007570 


01 271 3 


002003 


3151 








3152 


007574 


105777 


171532 


3153 


007600 


100410 




3154 


007602 


005200 




3155 


007604 


001373 




3156 








3157 


007606 


004737 


020774 



MOV 
ERROR 



(PRKDB , SREG1 

102 



; GET CONTENTS OF RKDB 
•.CONTROL RESET DIDN'T CLR RKDB 



;*TEST 20 



171556 
171546 



CHECK 1 WRITE FORMAT 1 -CYLINDER 0, SECTOR 0-13 
THIS TEST GOES ONE STEP FURTHE . & PERFORMS A WRT 

* FMT ON CYLINDER & CHECKS THE FOLLOWING 

*1 ) IF CNTRL RDY SET WITHIN A CERTAIN TIME ON COMPLETION 

*0F THE FUNCTION 

*2) IF 1 HE 1 OR 1 ERR 1 BIT SET? 

*3) IF THE RKDA INCREMENTS CORRECTLY? 

*4) IF THE RKDB IS CLEAR? 

*WRT FMT IS DONE ONE SECTOR AT A TIME 

* THE FIRST WORD OF EVERY SECTOR IS WRITTEN AS A 

* PSU EDO-HEADER CONSISTING OF DRIVE # , CYLINDER # , SURFACE 

*& SECTOR #. THIS WILL BE READ & CHECKED IN THE FOLLOWING TEST. 



SET UP COUNT FOR 12 SECTORS 

GET DRIVE ADDRESS 
STORE IT 

SET RETURN ADRES FOR LUPING 
ON ERROR (SW 9) 

GO, DO CONTROL RESET 
THIS IS A CALL FOR THE ' CNTRL" 
RESET' ROUTINE. A CONTROL RESET I 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 1 CNT . RESET ' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET 
IF SET , DO DRIVE RESET TO CLR IT 

THIS WORD TO BE X-FERRED. FIRST 
WORD OF EACH SECTOR WILL BE THE 
ACTUAL DRIVE-ADDRS CONSISTING OF 
DRIVE NO, CYL ADDRS, SURFACE 
SECTOR NO. 

ADRS FROM WHICH DATA WORD IS TO 

X-FERRED 

SET UP WORD COUNT 
R1,@R4 ; ADDRS THE DRIVE, CYL 0, & CORRECT SECTOR 



SCOPE 




MOV 


RKCS.R3 


MOV 


#-14, R2 


MOV 


RKDA, R4 


MOV 


DRI VAD , R1 


MOV 


R1 ,R5 


INC 


R5 


MOV 


#1$,$LPERR 


CNT. RESET 



CLR 

MOV 



MOV 
MOV 
MOV 

TSTB 
BMI 
INC 
BNE 

JSR 



RO 

R1 .OUTBUF 



#OUTBUF , PRKBA 



#2003 , @R3 

@RKCS 
3$ 
RO 
2$ 



WRITE FORMAT, GO 

DID ' CNTRL RDY ' SET? 
YES, BRANCH 

NO. HAVE U WAITED LONG? 
IF NOT , LOOP BACK & WAIT 
IF YES, REPORT ERROR 
GO, GET RKCS , ER. DS.DA 



MD-1 1-C2RKKF 
CZRKKF.P1 1 
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T20 CHECK 'WRITE FORMAT ' 



3158 


00761 2 


010137 


31 59 






3160 


007616 


1 0441 6 


3161 






3162 


007620 


1 04031 


3163 






31 64 






31 65 






3166 


007622 


004737 


3167 






3168 


007626 


1 04032 


3169 






31 70 






3171 






31 72 






31 73 






31 74 






31 75 


007630 


004737 


3176 






31 77 


007634 


1 04033 


31 78 






31 79 






31 80 






3181 


007636 


005777 


3182 






3183 






3184 


007642 


001406 


31 85 


007644 


005037 


3186 


007650 


01 7737 


3187 


007656 


1 04037 


3183 






31 89 






31 90 


007660 


005201 


3191 


007662 


005205 


31 92 


007664 


1 22705 


3193 


007670 


001 002 


3194 


007672 


062705 


31 95 






3196 


007676 


005202 


3197 


007700 


001317 


31 98 






31 99 






3200 






3201 






3202 






3203 






3204 






3205 






3206 






3207 






3208 






3209 






321 






321 1 






3212 






3213 







4$; 



171466 001164 



R1 , SREG1 



BRKDA4 
ERROR 31 



JSR 
ERROR 



BEQ 

CUR 
MOV 
ERROR 



INC 
INC 
CMPB 
BNE 

ADD 



INC 
BNE 



PC , CHKHE1 

32 



JSR PC.CHKDA1 
ERROR 33 



6$ 

SREGO 

©RKDB , SREG1 
37 



R1 
R5 

#14, R5 

.+6 

#4,R5 



R2 
1$ 



08:58 PAGE 60 
-CYLINDER 0, SECTOR 0-13 



GET DISK ADRS ( UNI T , CYL , SUR , SEC ) TO WHICH 

WRITE FORMAT WAS DONE 

GO TO 1 BDA4 1 & BREAK CONTENTS OF 

SREG10 INTO DR #, CYL, SUR , SEC BITS 

' CNTRL RDY' DID NOT SET ON COMPLETION 

OF 'WRITE FORMAT 1 

WRT FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MSGE. 

CHECK IF 1 ERR 1 OR 1 HE ' BIT IS SET, 

IF YES RETURN HERE. 

'HE' OR 'ERR 1 BIT SET WHILE DOING 

WRITE FORMAT ON CYLINDER 0, 

SECTOR IN ERROR IS AS SHOWN IN 

DISK-ADRE5 BITS 0-3 

WRT FMT WAS DONE STARTING AT <DSK-ADRES> 
INDICATED IN EROR MSGE. 

CHECK IF RKDA INCREMENTED CORRECTLY? 

RKDA DID NOT INCREMENT CORRECT 
AFTER 1 WORD 'WRITE FORMAT 1 ON 
CYLINDER 0, SECTOR IN ERROR IS 1 
LESS THAN THAT SHOWN IN EXPCTD RKDA 
CHECK THAT RKDB DOES CONTAIN A 
AFTER WRT BECAUSE LAST WORD WRITTEN 
WAS SERIALLY SHIFTED OUT TO THE DISK 
YES BRANCH 

THIS IS WHAT RKDB SHOULD CONTAIN 
GET RKDB 

RKDB SHOULD BE AFTER WRT SINCE THE 
LAST WORD WRITTEN WAS SERIALLY SHIFTED 
OUT OF RKDB 

INCREMENT DRIVE ADDRS TO NXT SECTOR 

R U GOING TO CHECK THE LAST SECTOR? 
IF NOT , BRANCH 

IF YES, INCREMENT R5 CORRECTLY TO 1 EXPCTD RKDA' 
AFTER HAVING CHECKED THE LAST SECTOR 
HAVE U FORMATTED ALL 12 SECTORS? 
IF NOT , BRANCH BACK 3 LOOP 
IF YES, EXIT 

*** « ********** * 



SEO 0059 



»• ****************** ******************************** 
•♦TEST 21 CHECK 1 READ FORMAT ' -CYLINDER 0, SECTOR 0-13 

*THIS TEST PERFORMS A RD FMT ON THE 12 SECTORS OF CYLINDER 
; * T H E FOLLOWING IS CHECKED 
*1) IF CNTRL RDY SET WITHIN A CERTAIN TIME ON COMPLETION 
*OF THE FUNCTION 
*2) IF 'HE' OR 'ERR' BIT SET? 
*3) IF THE RKDA INCREMENTS CORRECTLY? 
*4) RKBA INCREMENTED CORRECTLY BY 30 (OCTAL) 
; *5) RKWC OVERFLOWED TO FROM -14 (OCTAL) 
; :6) CORRECT HEADER WAS RECEIVED FROM ALL 12 SECTORS. 

• 7) RKCS STILL CONTAINS THE 1 RD FMT ' FUNCTION BITS. 
;*IF THERE IS A READ ERROR IN THIS TEST OR ANY 
"•OTHER TESTS THE USER SHOULD MAKE SURE THAT 



MQ-1 1-CZRKKF, RK11 BASIC LOGIC TEST 2 



RKKF 


P1 1 21 


-FEB-78 


08:51 


3214 








3215 








3216 








3217 








3218 








3219 


007702 


000004 




3220 


007704 


005005 




3221 


007706 


104413 




3222 








3223 








3224 








3225 








3226 








3227 








3228 








3229 








3230 








3231 


007710 


104421 




3232 








3233 


007712 


01 3701 


001332 


3234 


007716 


01 2700 


177764 


3235 


007722 


01 3702 


001340 


3236 


007726 


01 3712 


001350 


3237 


007732 


01 2704 


033342 


3238 


007736 


01 0477 


171374 


3239 


007742 


01 2777 


177764 


3240 


007750 


01 2777 


002005 


3241 








3242 


007756 


105777 


171350 


3243 


007762 


10041 1 




3244 


007764 


005205 




3245 


007766 


001373 




3246 








3247 


007770 


004737 


020774 


3248 


007774 


01 3737 


001350 


3249 


010002 


104416 




3250 








3251 


010004 


104045 




3252 








3253 








3254 








3255 








325S 


010006 


004737 


021234 


3257 








3258 


01 0012 


104046 




3259 








3260 








3261 








3262 


010014 


01 3705 


001350 


3263 


01 0020 


062705 


000020 


3264 








3265 


010024 


004737 


021270 


3266 








3267 


010030 


104040 




3268 








3269 
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T21 CHECK 1 READ FORMAT ' -CYLINDER 0, SECTOR 0-13 



SEO 0060 



;*IT IS AN IRRECOVERABLE 
;*ONE. THIS CAN BE DONE 
;*IN QUESTION. USUALLY A 
;*DISAPPEARS ON RETRIES, 

************************* 
SCOPE 

CLR R5 
CNT. RESET 



ERROR AND NOT A TRANSIENT 
BY LOOPING ON THE TEST 
TRANSIENT ERROR 

WHEREAS A LOGIC ERROR DOES NOT. 

******************************* 



171364 

1713S4 



TST.SIN 




MOV 


RKCS.R1 


MOV 


#-14, RO 


MOV 


RKDA.R2 


MOV 


DRI VAD , @R2 


MOV 


#0UTBUF,R4 


MOV 


R4 , ©RKBA 


MOV 


#-14 t »RKWC 


MOV 


#200S,i§sRKCS 


TSTB 


©RKCS 


BMI 


2$ 


INC 


R5 


BNE 


1$ 


JSR 


PC , GT4RG 


MOV 


DRIVAD , SREG 


BRKDA4 




ERROR 


45 


JSR 


PC , CHKHE 


ERROR 


46 


MOV 


DRIVAD, R5 


ADD 


#20, R5 


JSR 


PC , CHKDA1 


ERROR 


40 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE ' CNTRL- 
RESET ' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 1 CNTRL RDY 1 DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET 
IS SET, DO DRIVE RESET TO CLR IT 

SET UP COUNT FOR 12 SECTORS 

ADDRESS THE DRIVE 

ADRS TO WHICH X-FER DATA FROM DSK 

SET UP V'ORD COUNT FOR 12 HEADERS TO BREAD 

READ FORMAT, GO 

DID CNTRL RDY SET ON COMPLETION? 
YES, BRANCH 

NO, WAIT FOR IT TO SET 
IF WAITED LONG ENOUGH REPORT 
ERROR, OTHERWISE LOOP BACK & WAIT 
GO, GET RKCS , ER, DS.DA 

GO TO 1 BDA4 1 & BREAK CONTENTS OF 
SREG10 INTO DR* f CYL, SUR, SEC BITS 
CNTRL RDY DID NOT SET ON COMPLETION 
OF READ FORMAT-OF CYLINDER 0, 
SECTORS 0-13 

READ FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

CHECK I F 1 ERR ' OR 'HE' BIT IS SET, 

IF YES RETURN HERE. 

1 ERR 1 OR 'HE' BIT SET ON DOING 

READ FMT-OF CYLINDER 0. SEC 0-13 

READ FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

RKDA SHOULD HAVE I NCREMENTD TO (R2) 

CHECK IF RKDA INCREMENTED CORRECT: Y, 

IF NOT , RETURN HERE . 

RKDA DID NOT INCREMENT BY 12 

AFTER A ' RD FMT 1 OF 12 HEADERS OF 

CYLINDER , SECTORS 0-13 
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T21 CHECK 1 READ FORMAT 1 -CYLINDER 0, SECTOR 0-13 



SEQ 0061 



3270 






3271 






3272 


01 0032 


022777 


3273 


01 0040 


001407 


3274 


01 0042 


01 2737 


3275 


01 0050 


01 7737 


3276 


010056 


104042 


3277 






3278 


010060 


004737 


3279 






3280 


01 0064 


104041 


3281 






3282 






3283 


01 0066 


005724 


3284 


010070 


001413 


3285 


01 0072 


01 0037 


3286 


010076 


062737 


3287 


0101 04 


005037 


3288 


010110 


01 4437 


3289 


0101 14 


104043 


3290 






3291 


0101 16 


005724 


3292 


01 01 20 


005200 


3293 


01 01 22 


001361 


3294 






3295 


010124 


004737 


3296 






3297 


010130 


104036 


3298 






3299 


010132 


02271 1 


3300 


010136 


001406 


3301 


010140 


01 2737 


3302 


010146 


01 1 137 


3303 


010152 


104024 


3304 






3305 






3306 






3307 






3308 






3309 






3310 






331 1 






3312 






3313 






3314 






3315 






3316 






331 7 






3318 






3319 






3320 






3321 






3322 






3323 






3324 






3325 







033372 001 1 62 

171262 001164 



CMP 
BEQ 
MOV 
MOV 
ERROR 

USR 



TST 
BEQ 
MOV 
ADD 
CLR 
MOV 
ERROR 

TST 
INC 
BNE 

JSR 

ERROR 

CMP 
BEQ 
MOV 
MOV 
ERROR 



#OUTBUF+30,@RKBA 
5S 

#OUTBUF+30,$REG0 

©RKBA , SREG1 

42 

PC, CHKWC 

41 



(R4) + 

7$ 

RO.SREGO 

#14,$REG0 

SREG1 

-(R4) ,$REG2 

43 



(R4) + 



PC.CHKER 

36 

#2204,<?>R1 
TST22 

#2204,$REG0 
@R1 ,$REG1 
24 



RKBA SHOULD INCREMENT BY 24 BYTES 
AT THE END OF X-FER 
; DID RKBA INCREMENT CORRECTLY? 
YES, BRANCH 

; GET EXPCTD RKBA 
GET ACT „ A L RKBA 

RKBA DID NOT INCREMENT CORRECT LY 
AFTER READ FORMAT OF 12 HEADERS 
GO CHECK IF RKWC OVERFLOWED TO 
IF NOT RETURN HERE. 
RKWC DID NOT OVERFLOW TO 
AFTER ' RD FMT ' OF 12 HEADERS 
OF CYLINDER 

WAS THE CORRECT HEADER RECIEVED? 

YES, BRANCH 

GET SECTOR FOR WHICH THE HEADER 

COULD NOT BE READ CORRECT 

EXPCTD HEADER-O, FOR CYL 

GET WRONG HEADER RECVD 

HEADER WAS NOT READ RIGHT FOR 

SECTOR (AS IN ER MSGE) , & CYL 

WAS THE CORRECT HEADER RECVD? 

YES, HAVE U CHECKED FOR ALL 12 SECTORS? 

IF NOT, LOOP BACK & CHK HDR FRM NXT SECTR 

CHECK IF ANY BIT IN RKER IS SET, 
IF YES, RETURN HERE. 
RKER BIT SET ON DOING RD FMT 
OF CYL 0, SECTORS 0-13 

DOES RKCS STI LL CONTAIN FUNCTION BITS? 

;YES, EXIT 

GET EXPCTD RKCS 

GET ACTUAL RKCS 

RKCS DID NOT CONTAIN 1 RD F <'T ' 

FUNCTION BITS ON COMPETION OF 

THE FUNCTION 



;*TEST 22 



CHECK ' READ' .CYLINDER 0, SECTORS TO 13 
THIS TEST PERrORMS A READ OF ALL THE SECTORS OF CYLINDER 
*& CHECKS THE FOLLOWING 

*1) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 

*OF THE FUNCTION 

*2) IF 'HE' OR 'ERR' BIT SET? 

*3) IF THE CORRECT PSU EDO-HEADER (FIRST WORD OF EVERY) 
♦SECTOR , WRITTEN IN A PREVIOUS TEST) WAS RECEIVED. 
*4) IF RKDS CONTAINS THE CORRECT WORD. 
*4) IF RKDA INCREMENTED CORRECT LY . 

*5) IF REST OF THE (377 ) WORDS IN EACH SECTOR ARE ' ' , NOTE 

♦PREVIOUSLY ONE WORD WAS WRITTEN PER SECTOR . 

*6) IF RKCS STI LL CONTAINS THE ' READ 1 FUNCTION BITS 

*7) IF CONTROL RESET CLEARS RKDB. 

* IF TESTING IS BEING DONE ON A SIMULATOR ONLY LAST SECTOR( 13) 
*IS READ BECAUSE THE SIMULATOR CAN STORE ONLY 1 SECTOR (256 WORDS) . 



MD-1 1-CZRKKF, RK1 1 BASIC LOGIC TEST 2 
CZRKKF . P 1 1 21-FEB-78 08=51 
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T22 CHECK 1 READ 1 .CYLINDER 0, SECTORS TO 13 



SEQ 0062 



3326 








3327 








3328 


010154 


000004 




3329 


01 01 56 


01 2737 


01 0230 


3330 








3331 


010164 


01 3703 


001332 


3332 


0101 70 


01 3701 


001350 


3333 


0101 74 


01 01 05 




3334 


010176 


01 2704 


033342 


3335 


01 0202 


005737 


001344 


3336 


010206 


001405 




3337 








3338 








3339 


01 021 


052701 


000013 


3340 


01 0214 


052705 


000020 


3341 


01 0220 


000403 




3342 


01 0222 


012702 


177764 


3343 


010226 


005205 




3344 








3345 


010230 


104413 




3346 








3347 








3348 








3349 








3350 








3351 








3352 








3353 








3354 








3355 


010232 


104421 




3356 








3357 


01 0234 


01 01 77 


171 100 


3358 


010240 


01 0477 


171072 


3359 


010244 


01 2777 


1 77400 


3360 


01 0252 


01 2713 


000005 


3361 








3362 


010256 


005000 




3363 


01 0260 


105713 




3364 


01 0262 


100410 




3365 


01 0264 


005200 




3366 


01 0266 


001374 




3367 








3368 


01 0270 


004737 


020774 


3369 


01 0274 


01 01 37 


001202 


3370 


01 0300 


104416 




3371 








3372 


010302 


1 04045 




3373 








3374 








3375 








3376 








3377 


010304 


004737 


021226 


3378 








3379 


010310 


104046 




3380 








3381 









; *HENCE ONLY THE DATA 



SCOPE 
MOV 

MOV 
MOV 
MOV 
MOV 
TST 
BEQ 



BIS 

BIS 

BR 

MOV 

INC 



#1$,SLPERR 

RKCS, R3 
DRIVAD.R1 

R1 ,R5 

0OUTBUF.R4 
SIMUL 

9$ 



#13, R1 
#20, R5 

1$ 

#-14, R2 

R5 



MOV 
MOV 

MOV 
MOV 

CLR 

TSTB 

BMI 

INC 

BNE 

JSR 
MOV 
BRKDA4 



R1 ,@RKDA 
R4 , ©RKBA 
#-400,(SRKWC 
#5,@R3 

RO 

@R3 

3S 

RO 

2$ 

PC , GT4RG 

R1 .SREG10 



JSR PC , CHKHE1 

ERROR 46 



WRITTEN LAST CAN BE READ BACK. 

************************ 



;SET RETURN ADRES FOR LUPING 
;0N ERROR (SW 9) 



TESTING ON SIMULATOR? 
NO, BRANCH 

IF TESTING ON SIMULATOR READ 
SECTOR 13 ONLY 
SET BITS FOR SEC 1 3 

RKDA SHOULD INCRMNT TO THIS AFTER READ 

SET COUNT FOR 12 SECTORS 

RKDA SHOULD INCREMENT TO 

THIS AFTER 1 SECTOR READ 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE ' CNTRL" 

RESET ' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE * CNTRL RDY* DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERR & IF IT 

OCCURS GO BACK TO TEST 10 

GO CHECK IF SIN IS SET 

IF SET , DO DRIVE RESET TO CLR IT 

ADDRESS THE DRIVE 

ADRS TO WHICH X-FER DATA FROM DISK 
SETUP WORD COUNT 
READ , GO 



DID CNTRL RDY SET ON COMPETION? 
YES, BRANCH 

NO, WAIT FOR IT TO SET 

IF WAITED LONG ENOUGH, REPORT 

ERROR. OTHERWISE LOOP BAK & WAIT 

GO, GET RKCS , ER , DS , DA 

GET SECTOR ADDRES WHERE ERROR OCCURED 

GO TO ' BDA4 1 & BREAK CONTENTS OF 

SREG10 -NTO DR # . CY L , SUR , SEC BITS 

CNTRL RDY DID NOT SET ON COMPLETION 

OF READ OF CYLINDER 0, SECTOR 

AS SHOWN IN <DSK-ADRES> 

READ WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

CHECK I F 'ERR' OR 'HE' BIT IS SET, 

IF YES RETURN HERE. 

HE OR ERR BIT SET 

ON 1 READ ' OF CYLINDER 0, SECTOR 

AS SHOWN IN <DSK-ADRES> 
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SEQ 0063 



3382 














3383 














3384 


01 031 2 


0201 1 4 






4$: 


CMP 


3385 














3385 














3387 












BEQ 


3383 


010314 


00 1 407 








3389 


010316 


010137 


001 1 62 






MOV 


3390 


1 0322 


01 1 437 


001 1 64 






MOV 


3391 


01 0326 


010137 


001 166 






MOV 


3392 


01 0332 


1 04044 








ERROR 


3393 














3394 














3395 


01 0334 


004737 


021270 




5$: 


JSR 


3395 














3397 


01 0340 


104040 








ERROR 


3398 














3399 














34C0 














3401 














3402 














3403 














3404 














3405 














3406 














3407 














3408 


01 0342 


01 2737 


1 77775 


001370 




MOV 


3409 


01 0350 


01 2700 


033344 






MOV 


341 


1 0354 


01 2737 


1 77401 


001362 




MOV 


341 1 


01 0362 


0057 1 






11$: 


TST 


341 2 


1 0364 


00 1 005 








BNE 


3413 


01 0366 


005720 








TST 


341 4 


01 0370 


005237 


001 362 






INC 


341 5 


01 0374 


00 1 372 








BNE 


3416 


01 0376 


00041 2 








BR 


341 7 


01 0400 


005037 


001 162 




12$: 


CLR 


3418 


01 0404 


01 2037 


001 164 






MOV 


341 g 


01 04 1 


01 01 37 


001 166 






MOV 


3420 














3421 


01 041 4 


1 04044 








ERROR 


3422 














3423 














3424 














3425 














3426 














3427 














3428 














3429 


010416 


005237 


001 370 






INC 


3430 


01 0422 


00 1 357 








BNE 


3431 














3432 














3433 


01 0424 


005737 


001344 




7$: 


TST 


3434 


01 0430 


00101 1 








BNE 


3435 














3436 














3437 


010432 


005201 








INC 



R1 , (R4) 



5$ 

R1 ,$REGO 
(R4) ,$REG1 
R1 , SREG2 

44 



#-3,EFLG1 
0OUTBUF+2.RO 
#-377, COUNT 

(PRO 
12$ 
(R0) + 
COUNT 

11$ 
7$ 

$REGO 

(R0)+,$REG1 
R1 ,$REG2 

44 



EFLG1 

11$ 



SIMUL 

10$ 



READ WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

WAS THE DATA WORD RECVD, CORRECT? 

THE FIRST DATA WORD OF EACH SECTOR 

IS AN ADRS WORD COMRISING OF DRIVE NO, 

CYLINDER ADRS, SUR , SECTOR ADRS 

GET EXPCTD DATA WORD FROM DISK 
GET THE DATA WORD RECVD 
GET DISK ADRES 

DID NOT RECIEVE CORRECT DATA WCr?D ON 

READ, OF CYLINDER 0, SECTOR AS SHOWN IN ' DSK 

ADRES' OF EXPCTD DATA WORD 

CHECK IF RKDA INCREMENTED CORRECTLY, 

IF NOT RETURN HERE. 

RKDA DID NOT INCREMENT CORRECTLY 

AFTER READ OF 1 WORD, FROM CYL 

SEC IN ERROR IS 1 LESS THAN THAT 

SHOWN IN EXPCTD RKDA 

AS A RESULT OF 1 WRT FMT 1 IN A PREVIOUS TEST 
FIRST WORD OF EVERY SECTOR IS NON- 
ZERO ( PSUEDO-HDR) , REST 377 WORDS 
ARE ALL O'S. 

CHECK IF THE REST OF THE 377 

WORDS A n E ALL O'S 

ALLOW ONLY 3 ERRORS 

INITIALIZE PTR TO 2ND WRD IN BUFR 

CHECK 377 WORDS IN THE BUFFER 

IS THIS WRD 0? 

NO, ERROR 

INCRMNT PTR TO NXT WRD 
CHKD ALL 377 WRDS? 

YES, BRANCH 
GET EXPCTD WORD 
GET WORD RECVD 

GET DISK ADRES , ERROR IN THIS 
SECTOR 

DATA ERROR , THE LAST 377 WORDS 
READ FROM EACH SECTOR SHOULD BE 
IN A PREVIOUS TEST, FIRST WORD OF 
EVERY SEC (CYL ) WAS WRITTEN AS A 
PSUEDO-HDR, REST OF THE WORDS IN THE 
SECTR ARE AUTOMATICALLY WRITTEN AS 
O'S. THIS ERROR MAY MEAN THAT IT 
DIDN'T HAPPEN SO 

ALLOW ONLY 3 DATA ERORS OF THIS KIND 



; TESTING ON SIMULATOR? 
; YES BRANCH 

; IF NOT TESTING ON SIMULATOR GO AHEAD 
; & READ ALL 12 SECTORS ON CYL 
; INCREMENT DRIV-ADRES TO NXT SECTOR 
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3438 


01 0434 


005205 


3439 


010436 


122705 


3440 


01 0442 


001002 


3441 


010444 


052705 


3442 






3443 


010450 


005202 


3444 


01 0452 


001 266 


3445 






3446 


010454 


022713 


3447 


010460 


001406 


3448 


010462 


01 2737 


3449 


01 0470 


01 1337 


3450 


01 0474 


104024 


3451 






3452 


010476 


104413 


3453 






3454 






3455 






3456 






3457 






3458 






3459 






3460 






3461 






3462 


010500 


005777 


3463 


010504 


001407 


3464 


01 0506 


01 3737 


3465 


010514 


01 7737 


3466 


010522 


104102 


3467 






3468 






3469 






3470 






3471 






3472 






3473 






3474 






3475 






3476 






3477 






3478 






3479 






3480 






3481 






3482 






3483 






3484 






3485 






3486 






3487 






3488 






3489 






3490 






3491 






3492 






3493 







000204 
001 164 



INC 
CMPB 
BNE 
ADD 

INC 
BNE 

CMP 
BEQ 
MOV 
MOV 
ERROR 



R5 

#14,R5 

.+6 
#4,R5 

R2 
1$ 

#204, (BR3 

8$ 

#204,$REG0 

@R3,$REG1 

24 



CNT. RESET 



001342 001 162 
170622 001 164 



TST 
BEQ 
MOV 
MOV 
ERROR 



©RKDB 
TST23 

RKDB, SRFGO 
@RKDB,$REG1 

102 



INCREMENT 1 EXPCTD DRIV-ADRES' 

R U GOING TO READ THE LAST SECTOR? 

IF NOT , BRANCH 

IF YES, INCREMENT 'EXPCTD RKDA' 
CORRECT LY 

HAVE U . EAD ALL 12 SECTORS? 
IF NOT LOOP BACK & READ THE 
NXT SECTOR 

DOES RKCS, STILL HAVE THE 'READ' FUNCTION 
YES, BRANCH 
GET EXPCTD RKCS 
GET RKCS RECVD 

RKCS SHOULD STILL CONTAIN THE ' READ 1 

FUNCTION BITS 

GO ,D0 CONTROL RESET 

THIS IS A CALL FOR THE ' CNTRL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE ' CNTRL ROY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERR & IF IT 

OCCURS GO BACK TO TEST 10 

DID CNTRL RESET CLEAR RKDB? 

;YES, EXIT 

GET ADRES OF RKDB 

GET CONTENTS OF RKDB 

CONTROL RESET DID NOT 

CLEAR RKDB 



*TEST 23 CHECK 'WRITE FORMAT ' OF THE DISK 

THIS TEST WRITE FORMATS THE ENTIRE DISK. THE FIRST 
WORD OF EVERY SECTOR IS WRITTEN TO BE A PSUEDO-HEADER 
CONSISTING OF THE DRIVE #, CYLINDER # , SURFACE & SECTOR #. 
1 SECTOR IS WRITTEN A; A TIME. THE WRITING IS DONE 
IN THIS ORDER: CYL O-SUR 0; CYL O-SUR 1; CYL 1-SUR 

CYL 1-SUR 1; CYL 2-SUR ; CYL 2-SUR 1 CYL 312-SUR 1 . 

IMPORTANCE OF THIS TEST SHOULD BE REALIZED. THIS IS 
THE FIRST TIM£ EACH & EVERY SECTOR ON THE DISK IS 
ACCESSED & WRITTEN ON. THIS IS THE FIRST TIME RKDA 
IS BEING MADE TO INCREMENT OVER THE ENTIRE DISK (FROM 
000000 TO 014520) IF A 1 SIN 1 OCCURS AT ANY POINT 
A DRIVE RESET IS DONE BEFORE DOING WRT FMT FOR THE NEXT 
SECTOR. ANY OTHER ERROR IS CLEARED THROUGH A CONTROL RESET. 
THE FOLLOWING CHECKING IS DONE AFTER WRITING EACH 
CYLINDER. 

1. CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
OF THE FUNCTION. 

2. IF 'SIN' OCCURRED? 

3. IF 'HE* OR 'ERR' BIT SET? 

4. IF RKDA INCREMENTED CORRECTLY, INCLUDING BOUNDARY 
CONDITIONS (SECTOR COUNTER BITS OVERFLOWING INTO SURFACE, 
SURFACE BIT OVERFLOWING INTO CYLINDER BITS) AT THE END 
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3494 








3495 








3496 








3497 


01 0524 


00 0004 




3498 


01 0526 


1 2737 


000001 


3499 


1 0534 


1 2737 


1 0564 


3500 








3501 


1 0542 


00 5003 




3502 








3503 


1 0544 


1 2704 




3504 


01 0550 


A 1 2 3n 2 


1 77764 


3505 


1 0554 


01 3701 


UU I J3U 


3506 


1 0560 


0101 05 




3507 


01 0562 


00 5205 




3508 


1 0564 


1 0441 3 




3509 








351 








351 1 








351 2 








351 3 








3514 








351 5 








351 6 








351 7 








351 8 


01 0566 


1 0442 1 




351 9 








3520 


01 0570 


005037 


00 1 362 


3521 


01 0574 


01 0137 


A o o o a n 
03oJ4«£ 


3522 








3523 








3524 








3525 


01 0600 


1 2777 


A O O O /1 1 


3526 


1 0606 


1 2777 


1 77777 


3527 


1 06 1 4 


01 1 77 


1 70520 


3528 








3529 


01 0620 


1 2777 


002003 


3530 








3531 


1 0626 


1 05777 


1 70500 


3532 


1 0632 


1 0041 1 




3533 


1 0634 


005237 


001362 


3534 


1 0540 


00 1 372 




3535 








3536 


1 0642 


004737 




3537 


01 0646 


010137 


001 202 


3538 


01 0652 


104416 




3539 








3540 


01 0654 


1 04031 




3541 








3542 
















3544 








3545 


01 0656 


032777 


001000 


3546 


01 0564 


001405 




3547 


01 0666 


004737 


021002 


3548 


01 0672 


01 01 37 


001 170 


3549 


010676 


104001 





;*0F THIS POINTERS ARE INCREMENTED ADJUSTED , 
;*& ' WRT FMT 1 ON THE NEXT SECTOR IS DONE. 



001206 
001 110 



170530 
170520 







MOV^ 


#1 STIMES 


MOV 


#1$,$LPERR 


CLR 


R3 


MOV 


#-313, R4 


MOV 


#-14, R2 


MOV 


DRIVAD , R1 


MOV 


R1 ,R5 


INC 


R5 


CNT. RESET 



170442 3$: 



CLR 

MOV 



MOV 
MOV 
MOV 

MOV 

TSTB 
BMI 
INC 
BNE 

JSR 
MOV 

BRKDA4 



BIT 
BEQ 

JSR 
MOV 
ERROR 



COUNT 

R1 .OUTBUF 



#OUTBUF,@RKBA 
#-1 ,<3>RKWC 
R1 ,@RKDA 

#2003,@RKCS 

@RKCS 
3$ 

COUNT 

2$ 

PC , GT4RG 
R1 , SREG1 



#1000,@>RKDS 
4S 

PC , GT3RG 
R1 ,$REG3 



;DO 1 ITERATION 

SET RETURN ADRES FOR LUPING 

ON ERROR (SW 9) 

(R3)=0, SURFACE BEING WRITTEN 
(R3)-1 , SURFACE 1 BEING WRITTEN 
SET UP COUNT FOR 203 CYLINDERS 
SET UP COUNT FOR 1 2 SECTORS 

GET DRIVE ADRES 
STORE IT 

GO, DO CONTROL RESET 
THIS IS A CALL FOR THE ' CNTRL- 
RESET 1 ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE ' CNTRL RDY ' DOES NOT SE T 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET 
IF SET , DO DRIVE RESET TO CLR IT 

THIS WORD TO BE WRITTEN. THE FIRST 
WORD OF EACH SECTOR WILL BE THE ACTUAL 
DISK-ADRES, CONSISTING OF THE DRIVE NO, 
CYL ADRES, SURFACE BIT SECTOR ADRES 
ADRES FROM WHICH WORD IS TO B X-FERRED 
SET UP WORD COUNT 

ADRES THE DRIVE, WITH CORRECT CYL 
& SECTOR ADRES 
WRITE FORMAT , GO 

;DID CNTRL RDY SET 
; YES, BRANCH 

;NO, HAVE U WAITED LONG ENOUGH? 
;1F NOT , LOOP BACK & WAIT 
; IF YES, REPORT ERROR 
;G0, GET RKCS, ER, DS.DA 
; GET DISK ADRES, WHERE ERROR OCCURED 
; GO TO 1 BDA4 ' & BREAK CONTENTS OF 
; SREG10 " NTO DR ff , CY L , SUR , SEC BITS 
; CNTRL RDY DID NOT SET ON COMPLETION 
;OF 'WRITE FORMAT ' , ON SECTOR AS 
; SHOWN IN <DSK-ADRES> 

; WRT FMT WAS DONE STARTING AT <DSK~ADRES> 

; INDICATED IN EROR MSGE . 

;DID SIN BIT SET? 

;NO, BRANCH 

;GO, GET RKCS , ER, DS 

; GET , DISK-ADRES WHERE ERROR OCCURED 
;SIN SET WHILE DOING WRT FMT 
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3550 






3551 






3552 


010700 


004737 


3553 






3554 


01 0704 


104032 


3555 






3556 






3557 






3558 






3559 


01 0706 


004737 


3560 






3561 


01 0712 


104033 


3562 






3563 






3564 






3565 


01 0714 


005201 


3566 


01 071 6 


005205 


3567 


01 0720 


022702 


3568 






3569 


01 0724 


001002 


3570 


01 0726 


062705 


3571 


010732 


005202 


3572 






3573 


01 0734 


001313 


3574 






3575 






3576 


01 0736 


01 2702 


3577 


01 0742 


042701 


3578 


01 0746 


005703 


3579 


010750 


001006 


3580 


01 0752 


005203 


3581 


C1 0754 


062701 


3582 


01 0760 


01 0105 


3583 


010762 


005205 


3584 


01 0764 


000677 


3585 


01 0766 


062701 


3586 


010772 


01 01 05 


3587 


01 0774 


005205 


3588 


01 0776 


005003 


3589 


01 1000 


005204 


3590 


01 1002 


001270 


3591 






3592 






3593 






3594 






3595 






3596 






3597 






3598 






3599 






3600 






3601 






3602 






3603 






3604 






3605 
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JSR PC , CHKHE1 

ERROR 32 



177764 
000037 



JSR 
ERROR 



INC 

INC 
CMP 

BNE 

ADD 
INC 



MOV 

BIC 

TST 

BNE 

INC 

ADD 

MOV 

INC 

BR 

ADD 

MOV 

INC 

CLR 

INC 

BNE 



PC , CHKDA1 

33 



R5 

#-2,R2 

.+6 
#4,R5 

R2 



#-14, R2 

#37, R1 
R3 
8$ 
R3 

#20, R1 
R1 ,R5 

R5 
1$ 

#40, R1 

R1 ,R5 

R5 

R3 

R4 

1$ 



08:58 PAGE 67 
OF THE DISK 



;TO DISK-ADRES (AS IN $REG3) 

CHECK IF 'ERR' OR 'HE' BIT IS SET 

I F YES , RETURN HERE. 

HE OR ERR SET WHILE DOING WRITE 

FORMAT ON SECTOR AS INDICATED IN 

<DSK-ADRES> 

WRT FMT WAS DONE STARTING AT <DSK~ADRES> 

INDICATED IN EROR MSGE. 

CHECK I F RKDA INCREMENTED CORRECTLY, 

IF NOT , RETURN HERE. 

RKDA DID NOT INCREMENT CORRECTLY 

AFTER 'WRITE FORMAT ' WAS DONE 

TO THE SECTOR PREVIOUS TO THAT 

INDICATED IN ' EXPCTD' RKDA 

INCREMENT TO THE NXT SECTOR 

INCREMENT R5, TO WHAT RKDA WILL INCREMENT 
R U GOING TO FORMAT THE LAST SECTOR 
IN THE CYLINDER ? 
IF NOT , BRANCH 

INCREMENT R5 CORRECTLY TO 1 EXPCTD RKDA ' 

HAVE U FORMATTED ALL 12 SECTORS 

ON THIS CYLINDER 

IF NOT , LOOP BACK & FORMAT THE 

NEXT SECTOR 

YES 

RESET THE COUNT FOR 12 SECTORS 
CLEAR THE SEC ADRES BITS 
SURFACE 1 ? 
YES, BRANCH 
NO, SET FLAG 

INCREMENT TO THE NXT SURFACE 

THIS IS WHAT RKDA SHOULD 

INCREMENT TO. 

GO, DO NXT SURFACE 

INCREMENT TO NXT CYL 

POSITION FOR 

EXPCTD RKDA 

HAVE U FORMATTED ALL 203 CYLINDERS 
IF NOT , LOOP BACK & FORMAT THE 
NEXT CYLINDER 



CHECK 1 READ FORMAT 1 FOR THE ENTIRE DISK 
♦THIS TEST READ FORMATS THE ENTRE DISK, WHICH WAS WRT 
♦FORMATTED IN THE PREVIOUS TEST. THE FOLLOWING CHECKING 

♦ IS DONE 

♦ 1 . CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
♦OF FUNCTION 

♦2. IF ' SIN ' OCCURRED? 

♦3. IF 'HE* OR 'ERR' OCCURRED? 

*4. RKDA INCREMENTED CORRECTLY. 

*5. IF THE CORRECT HEADER WAS READ. 
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3606 
3607 
3608 
3609 
3610 
361 1 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
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SEO 0067 



01 1004 
01 1006 
011014 


000004 
01 2737 
01 2737 


000001 
011100 


001206 


01 1022 


005037 


001356 




01 1 026 
01 1032 
01 1 034 
01 1040 
01 1042 


01 3701 
01 0102 
005737 
001410 
052701 


001 350 

ftft 4 

001 3*»*» 

014533 




011046 


052702 


014540 




0110S2 


012737 


177777 


001370 


011060 
01 1062 
011066 


000407 
01 2705 
01 2737 


177465 
177764 


001370 


011074 


062702 


000020 




011100 


104413 







• . * * * «j» * 
TST24! 



*6. IF RKWC OVERFLOWED 
*12 SECTORS (1 CYLINDER 
*OCCURS A DRIVE RESET I 
♦SECTOR. READING IS DO 
*CYL 0-SUR 1 ; CYL 1-SUR 

*CYL 2-SUR 1 ;- CYL 3 

*THE LAST CYLINDER (312 

SCOPE 

MOV #1 ,$TIMES 

MOV #1$,§LPERR 



01 1102 104421 



01 1 1 04 01 2703 033342 

011110 005037 001360 

011114 01 0377 170216 

01 1 120 01 3777 001370 170206 



011126 01 0177 170206 

01 1 132 01 2777 002005 170172 



CLR 

MOV 
MOV 
TST 
BEQ 
BIS 



BIS 

MOV 

BR 

MOV 

MOV 



INDX1 

DRIVAD.R1 
R1 ,R2 
SIMUL 
12$ 

#14533, R1 



#14540, R2 
#-1 , EFLG1 

1$ 

#-313, R5 
#-14,EFLG1 



ADD #20,R2 
CNT. RESET 



MOV 
CLR 
MOV 



MOV 
MOV 



#0UTBUF,R3 

INDX2 

R3,@RKBA 

EFLG1 ,®RKWC 



R1 ,@RKDA 
#2005,S>RKCS 



CORRECT LY . 

) ARE READ AT A TIME. IF 1 SIN 1 
S DONE BEFORE READING THE NEXT 
NE IN THIS ORDER CYL O-SUR 0; 

0; CYL 1-SUR 1; CYL 2-SUR 0; 
12-SUR 1 . IF TESTING ON SIMULATOR, ONLY 
) , LAST SECTOR (13), SURFACE 1 IS READ. 

;D0 1 ITERATION 
SET RETURN ADRES FOR LUPING 
ON ERROR (SW 9) 

INDX1*0, SURFACE BEING READ 
INDX1 s 1 , SURFACE 1 BEING READ 
GET DRIVE ADRES 

TESTING ON SIMULATOR? 
NO, BRANCH 

SET BITS FOR CYL 312, SEC 13, SUR 1 

ON SIMULATOR, CHECK ONLY CYL 312, 

SECTOR 13, SURFACE 1 

RKDA SHOULD I NCRMNT TO THIS AFTR 

RD FMT OF 1 SECTOR 

SET COUNT FOR READING HDR 

FROM 1 SECTOR ONLY 

SET UP COUNT FOR 203 CYLINDERS 

SET COUNT FOR 12 HDRS TO BE 

READ FROM EACH CYLINDER 

THIS IS WHAT RKDA SHOULD INCREMENT 

BY, AFTER 1 RD FMT' OF EACH CYLINDER 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL ..ESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL RDY 1 DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERR & IF IT 

OCCURS GO BACK TO TEST 10 

CHECK IF SIN IS SET 

IF SET DO DRV-RESET TO CLR IT 

STORE ADRES OF BUFFER 

ADRES TO WHICH DATA IS TO BE X-FERRED 
FROM THE DISK 

SET UP WORD COUNT FOR 12 HEADERS 
TO BE READ OFF EACH CYLINDER 
(ONLY 1 FOR SIMULATOR) 
ADRES THE DRIVE WITH CORRECT 
CYLINDER & SECTOR ADRES 
READ FORMAT, GO 
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ZRKKF 


P1 1 21-FEB-78 


08:51 




T24 


CHECK 


READ FORMAT 1 FOR 


THE ENTIRE DISK 


3662 


01 1 140 


105777 


170166 




2$: 


TSTB 


©RKCS 


;DID CNTR1 RDY SET? 


3663 


01 1 144 


10041 1 








BMI 


3$ 


; YES, BRANCH 


3664 


01 1 146 


005237 


001360 






INC 


INDX2 


;N0, HAVE U WAITED LONG ENOUGH? 


3665 


01 1 152 


001372 








BNE 


2$ 


; IF NOT . LOOP BACK & WAIT FOR IT 


3666 
















; IF YES, REPORT ERROR 


3667 


01 1154 


004737 


020774 






JSR 


PCGT4RG 


; GO, GET RKCS, ER , DS.DA 


3668 


01 1 160 


01 0137 


001202 






MOV 


R1 ,$REG10 


; GET DRIV-ADRES STARTING WHICH 


3669 
















; 1 READ FORMAT 1 WAS DONE- 


3670 


011164 


104416 








BRKDA4 




;G0 TO 1 BDA4 1 & BREAK CONTENTS OF 


3671 
















;$REG10 INTO DR #, CYL, SUR , SEC BITS 


3672 


01 1 166 


104045 








ERROR 


45 


; CNTRL RDY DID NOT SET AFTER 


3673 
















; READ FORMAT. ' RKDA 1 IN EROR MSGE 


3674 
















JGIVES THE CONTENTS OF RKDA AT THE 


3675 
















; T IME OF ERROR. 


3676 
















; READ FMT WAS DONE STARTING AT <DSK-ADRES> 


3677 
















; INDICATED IN EROR MSGE. 


3678 


















3679 


01 1 170 


032777 


001000 


170130 


3$'. 


BIT 


#1000,@RKDS 


;DID 'SIN' SET? 


3680 


011176 


001405 








BEQ 


4$ 


;N0, BRANCH 


3681 


01 1200 


004737 


021002 






JSR 


PC.GT3RG 


;G0, GET RKCS, ER, DS 


3682 


011204 


01 0137 


001 170 






MOV 


R1 5 $REG3 


; GET DISK-ADRES WHERE 'SIN' 


3683 
















;OCCURED 


3684 


011210 


104001 








ERROR 


1 


;SIN ERROR ON DOING RD FMT 


3685 
















;T0 CYL INDICATED IN SREG3 


3686 


















3687 


01 1212 


004737 


021226 




4SJ 


JSR 


PCCHKHE1 


{CHECK IF 1 ERR 1 OR 'HE' BIT IS SET, 


3688 
















; IF YES, RETURN HERE. 


3689 


011216 


104046 








ERROR 


46 


; HE OR ERR WHILE DOING A READ 


3690 
















; FORMAT. ' RKDA 1 IN EROR MSGE GIVES 


3691 
















; THE CONTENTS OF RKDA AT THE TIME OF ERROR 


3692 
















; READ FMT WAS DONE STARTING AT <DSK-ADRES> 


3693 
















; INDICATED IN EROR MESGE 


3694 


01 1220 


020277 


170114 




5$; 


CMP 


R2 ,$RKDA 


;DID RKDA INCREMENT CORRECTLY BY 12 SEC 


3695 


01 1224 


001410 








BEQ 


6$ 




3696 


01 1226 


01 0237 


001202 






MOV 


R2.SREG10 


; GET EXPCTD RKDA 


3697 


01 1232 


104415 








BRKDAO 




;G0 TO ' BDAO 1 & BREAK CONTENTS OF 


3698 
















;$REG10 INTO DR #,CYL,SUR,SEC BITS 


3699 


01 1234 


01 7737 


170100 


001202 




MOV 


§»RKDA,SREG10 


; GET RECVD RDKA 


3700 


01 1242 


104416 








BRKDA4 




;G0 TO 1 BDA4 ' & BREAK CONTENTS OF 


3701 
















;$REG10 INTO DR ft .CYL.SUR.SEC BITS 


3702 


01 1244 


104040 








ERROR 


40 


; RKDA DID NOT INCREMENT BY 12 SECTORS 


3703 
















; AFTER RD FMT WAS DONE. ADRES 


3704 
















;0F CYLINDER IN ERROR CAN BE OBTAINED 


3705 
















; FROM ' EXPCTD' RDDA 


3706 


01 1246 


01 3700 


001370 




6$: 


MOV 


EFLG1 ,R0 


; SET UP COUNT FOR 1 2 HEADERS TO B CHKD 


3707 
















; (ONLY 1 . IF SIMULATOR) 


3708 


01 1252 


01 0104 








MOV 


R1 ,R4 


; GET DRIV-ADRES FROM WHERE RDFMT WAS DONE 


3709 


01 1254 


042704 


160037 






BIC 


#160037, R4 


; GET THE CYLINDER ADRES ONLY. (HEADER) 


3710 


01 1260 


02041 3 






7$; 


CMP 


R4, (R3) 


; IS THE RECVD HEADER SAME AS EXPCTD? 


371 1 


01 1262 


001412 








BEQ 


8$ 




3712 


01 1264 


01 0437 


001 164 






MOV 


R4 , SREG1 


; GET EXPCTD HEADER WORD 


3713 


01 1270 


01 1337 


001 166 






MOV 


(R3) ,$REG2 


; GET HEADER WORD RECVD 


3714 


01 1274 


01 0037 


001 162 






MOV 


RO.SREGO 




3715 


01 1300 


062737 


000014 


001162 




ADD 


#14,$REG0 


; GET THE SECTOR (OCTAL NO) WHICH DID 


3716 
















;NOT GIVE THE CORRECT HEADER 


3717 


01 1306 


104043 








ERROR 


43 


J DID NOT RECIEVE THE CORRECT HEADER 



MD-1 1-C2RKKF 
CZRKKF.P1 1 



RK11 BASIC LOGIC TEST 2 
21-FEB-78 08:51 



MACY1 1 30A(1052) 21-FEB-78 08:58 PAGE 70 
T24 CHECK 1 READ FORMAT 1 FOR THE ENTIRE DISK 



3718 








3719 








3720 


011310 


005723 




3721 








3722 


011312 


005200 




3723 


011314 


001361 




3724 








3725 








3726 


011316 


004737 


021318 


3727 








3728 


01 1322 


104041 




3729 








3730 








3731 








3732 


01 1324 


005737 


001344 


3733 


01 1330 


001031 




3734 








3735 


01 1332 


005737 


001356 


3736 


01 1336 


001 01 1 




3737 


01 1340 


005237 


001356 


3738 


01 1344 


062701 


000020 


3739 


01 1350 


01 0102 




3740 


01 1352 


062702 


000020 


3741 








3742 


01 1356 


000137 


01 1 100 


3743 


01 1362 


005037 


001356 


3744 


01 1366 


042701 


000037 


3745 


01 1372 


062701 


000040 


3746 


01 1376 


01 01 02 




3747 


01 1400 


062702 


000020 


3748 


01 1404 


005205 




3749 


01 1406 


001402 




3750 


011410 


000137 


011100 


3751 








3752 








3753 








3754 








3755 








3756 








3757 








3758 








3759 








3760 








3761 








3762 








3763 








3764 








3765 








3766 








3767 








3768 








3769 








3770 








3771 








3772 








3773 









TST 
BNE 
INC 
ADD 
MOV 
ADD 

UMP 
CLR 
BIC 
ADD 
MOV 
ADD 
INC 
BEQ 
JMP 



INDX1 
10$ 
INDX1 
#20, R1 
R1 ,R2 
#20, R2 

1$ 

INDX1 
#37, R1 
#40, R1 
R1 ,R2 
#20, R2 
R5 

TST25 

1$ 



WORD FROM ' SECTOR' AS INDICATED 
(NOTE SECTOR # IS OCTAL) 



TST 


(R3) + 


INCREMENT POINTER TO THE NXT WORD 

IN MEMORY WHERE THE RECVD HDR IS STORED 


INC 


RO 


HAVE U CHECKED ALL 12 HEADERS? 


BNE 


7$ 


T c wn? i nr*D date/ b hum tljc kivt 
1 r NO I , LUOr BALK & t»HK Trie. NaT. 

YES , ALL HEADERS FOR TH I S CYLINDER 

CHECKED. 


dSR 


PC.CHKWC 


CHECK IF RKWC OVERFLOWED TO 0, IF 
NOT RETURN HERE. 


ERROR 


41 


RKWC DID NOT OVERFLOW AFTER DOING 
RDFMT OF 12 SECTORS ON THE CYLINDER 
NOTE THAT ' RKDA ' IS THE INCREMENTED 
RKDA AFTER THE RDFMT 


TST 


SIMUL 


TST ING ON SIMULATOR? 


BNE 


TST25 


; IF YES, EXIT 



NO 

DOING SURFACE 1 
YES, BRANCH 

NO 

INCREMENT DRIV ADRES TO THE NXT SURFACE 

THIS IS WHAT RKDA SHOULD INCREMENT 
TO, AFTER READ FMT OF THE CYLINDER 
GO RD FMT THE NXT SURFACE 

CLR SEC, SURFACE BITS 

INCREMENT TO NXT CYL 

THIS IS WHAT RKDA SHOULD BE 

AFTER RD FMT OF CYLINDER 

HAVE U DONE ALL CYLINDERS? 

;EXIT 

IF NOT, LOOP BACK & READ FMT FROM 
THE NXT CYLINDER 



;*TEST 25 CHECK 'READ' OF THE ENTIRE DISK 

♦READ OF THE ENTIRE DISK (ONE WORD PER SECTOR) IS DONE 

♦ IN THIS TEST. IN A PREVIOUS TEST THE FIRST WORD OF 

♦ EVERY SECTOR WAS WRITTEN LIKE A PSU EDO-HEADER ( DRIVE #, 
♦CYLINDER #, SURFACE & SECTOR #). THESE PSUEDO HEADERS 
♦WILL BE READ & CHECKED IN THIS TEST, PROVING THAT ANY 
♦SECTOR CAN BE ACCESSED AND READ. 

;*THE FOLLOWING CHECKING IS DONE 

. CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
; ♦OF FUNCTION. 

♦ 2. IF 1 SIN 1 OCCURRED? 
;*3. IF 'HE' OR 1 ERR 1 OCCURRED? 

;*4. THE CORRECT FIRST WORD FROM EVERY SECTOR 
♦WAS RECEIVED. THIS WORD REFLECTS THE ABSOLUTE 
♦DISK ADDRESS (DRV #, CYL #, SUR, SEC#) OF THAT SECTOR. 
*5. IF RKDB CONTAINED THE CORRECT WORD. 
♦IF 'SIN' OCCURS DRIVE RESET IS DONE BEFORE READING 
; ♦THE NEXT SECTOR. READ IS DONE IN THIS ORDER SEC 0-1 1 
♦CYL SUR -> SEC 0-11 CYL SUR 1 -> SEC 0-1 1 CYL 1 
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001206 
001110 



3774 








3775 








3776 








3777 


011414 


000004 




3778 


011416 


01 2737 


000001 


3779 


01 1424 


01 2737 


01 1470 


3780 








3781 


01 1432 


01 2703 


033342 


3782 


01 1436 


005004 




3783 








3784 


01 1440 


01 3701 


001350 


3785 


01 1444 


005737 


001344 


3786 


01 1450 


00 1403 




3787 


01 1452 


052701 


014533 


3788 


01 1456 


000404 




3789 


01 1460 


01 2700 


177764 


3790 


01 1464 


012705 


177465 


3791 








3792 


01 1470 


104413 




3793 








3794 








3795 








3796 








3797 








3798 








3799 








3800 








3801 








3802 


01 1472 


104421 




3803 








3804 


01 1474 


005037 


001356 


3805 


01 1500 


01 0377 


167632 


3806 








3807 


01 1504 


01 2777 


1 77777 


38'08 


011512 


01 01 77 


167622 


3809 








3810 


011516 


01 2777 


000005 


3811 








3812 


01 1524 


105777 


167602 


3813 


01 1530 


1 0041 1 




3814 


01 1532 


005237 


001356 


3815 


01 1536 


001372 




3816 








3817 


01 1540 


004737 


020774 


3818 


01 1544 


01 0137 


001202 


3819 


01 1550 


1 0441 6 




3820 








3821 


01 1552 


104045 




3822 








3823 








3824 








3825 








3826 








3827 


01 1554 


032777 


001000 


3828 


01 1562 


001405 




3829 


01 1564 


004737 


021002 
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♦IF TESTING ON SIMULATOR ONLY LAST CYLINDER (312) , 
♦SECTOR ( 13) , SURFACE 1 IS READ. 



******** 




SCOPE 




MOV 


#1 .STIMES 


MOV 


#1$,SLPERR 


MOV 


#0UTBUF,R3 


CLR 


R4 


MOV 


DRIVAD.R1 


TST 


SIMUL 


BEQ 


10$ 


BIS 


#14533, R1 


BR 


1$ 


MOV 


#-14, RO 


MOV 


#-313, R5 


CNT . RESET 



CLR 
MOV 

MOV 

MOV 

MOV 

TSTB 
BMI 
INC 
BNE 

<JSR 
MOV 

BRKDA4 



INDX1 

R3,@RKBA 



#-1 ,@RKWC 

R1 ,@RKDA 



@RKCS 
3$ 

INDX1 

2$ 

PC , GT4RG 
R1 ,$REG10 



167544 3$: 



BIT #1000,@RKDS 

BEQ 4$ 

JSR PC , GT3RG 



;DO 1 ITERATION 

SET RETURN ADRES FOR 

LOOPING ON ERROR (SW9) 

FLAG, CLEAR WHEN READING SURFACE 
SET WHEN READING SURFACE 1 
GET DRIVE ADDRESS 
TSTING ON SIMULATOR? 
IF NOT BRANCH 

SET ADRES BITS FOR LAST CYL (312) 

LAST SECTOR (13), SURFACE 1 

SET COUNT FOR 12 SECTORS 

SET UP COUNT FOR 203 CYLINDERS 

GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 1 CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK SIN, IF SET DO 
DRIVE RESET TO CLR IT 

ADRES TO WHICH DATA IS TO B X-FERKED 

FROM THE DISK 

SET UP WORD COUNT 

ADRES THE DRIVE WITH CORRECT 

CYLINDER & SECTOR ADRES 

READ, GO 

DID CNTRL RDY SET? 
YES, BRANCH 

NO, HAVE U WAITED LONG ENOUGH 

IF NOT , LOOP BACK & WAIT FOR IT 

IF YES, REPORT ERROR 

GO, GET RKCS, ER , DS.DA 

GET DISK-ADRES WHERE ERROR OCCURED 

GO TO ' BDA4 1 & BREAK CONTENTS OF 

SREG10 INTO DR # . CY L , SUR , SEC BITS 

CNTRL RDY DID NOT SET AFTER DOING 

A 1 WORD READ FROM ADRES AS 

INDICATED IN <DISK~ADRES> 

1 RKDA' IN EROR MSGE GIVES THE 

CONTENTS OF RKDA AT THE TIME OF ERROR 

DID 'SIN' SET? 
NO, BRANCH 

GO, GET RKCS, ER, DS 
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SCO 0071 









001 1 70 




MOV 


R1 i SREG3 


; GET D I SK-ADR ES WHERE SIN 0CCURED3 


3S3? 










ERROR 


f 


; 'SIN' ERROR ON DOING READ FROM 
















; DISK-ADRE5 INDICATED IN SREG3 






. _ _ 


02 1 226 


4$ 5 


USR 


PC , CHKHE1 


; CHECK I F ' ERR 1 OR 'HE' BIT IS SET , 


3834 














; I F YES , RETURN HERE. 


3835 


01 602 


1 04046 






ERROR 


46 


; 'HE' OR 'ERR' ON DOING A READ OF 
















; 1 WORD FROM ADRES AS INDICATED 


3837 














IN <D I SK-ADRE5> 
















: ' RKOA 1 IN F RDR MCRP ftTv/pc Tup 
















5 CONTENTS OF RKDA AT THE TIME OF EROR 


3840 




02 01 13 




S$ ; 


CMP 


R1 » ( R3 } 


• WAS THE rOBRFCT DATA WORn RFTUD? 


384 1 




001407 






BEQ, 


6$ 






ni Bin 


0101 37 


Oft 1 1 S3 

WWII wto 




MOV 


R1 fSRECsO 


"GET EXPCTD DATA WORD 


3843 


011014 




©01 1 64 




MOV 


(R3) , SRES1 


GET DATA WORD RFTV/O 


3044 


011 ©20 


01 0137 


OQ11 f?S 

WW i 1 i9m 




MOV 


R1 ,$REG2 


GET DI 5K-ADRES 


3845 


011 ©24 


1 04044 






ERROR 


44 


DID NOT REC I EVE THE CORRECT 


3048 














DATA WORD FROM DISK ON DOING 


3847 














1 WORD READ FROM 1 DI SK-ADRES 1 


3848 














AS INDICATED BY 'EXPCTD 1 DATA WORD 


3849 














NOTE THAT IN A PREVIOUS TEST THE 


3850 














FIRST WORD OF EACH SECTOR IS UNIQUELY 


3851 














WRITTEN WITH A WORD GI \7 T MR TWP 


3852 














ABSOLUTF AhHRF?*? OP THAT SFPTOP TM 


3853 














TERMS DF or i u jt ry i AnRBe cup cpr ADPC 

i &rcm^ w r , wnl V ff i v«T b nWnbi? i Sunt nwnui 


3854 


011 62© 


0201 77 


1 6751 


@$; 


CMP 


R1 »@RKDB 


DOES RKDB CONTAIN CORPFTT WORD 


3855 


011 632 


WW 1 TWV 






BEQ 


7$ 


YES, BRANCH 


3856 


011 634 




001 1 62 




MOV 


R1 ,SREG0 


NO, GET EXPCTD RKDB 


3857 


011 640 


1 7737 


1 67476 


001 1 64 


MOV 


@RKDB,$REG1 


GET RKDB RECVD 


3858 


011 S46 


1 04037 






ERROR 


37 


RKDB ERROR ON READ . 
















FOR RK1 1T AFTFR A dp An DLtnR 


3860 














CONTAINS CHECKSUM FOR THE SECTOR 
















READ . 


3862 














WHEREAS FOR RK11D, AFTER READ 
















RKDR POSIT A T M c TUP i act U/OPn 


3864 














READ FROM THAT SECTOR S 


3865 














X-FERRED TO MEMORY 




01 1 650 


005737 


00 1 344 


7$ : 


TST 


SIMUL 


TESTING ON SIMULATOR' 


3867 


1 1 654 


001022 






BNE 


TST26 


• i f YES EXIT 


3868 


011 656 








INC 


R1 


INCREMENT TO ADRES NEXT SECTOR 




011 660 


00 5200 






INC 


RO 


nMVt U Unf\U MLL 1 ^ OlU 1 UKj ( 


3870 


01 1 662 


00 1 302 






BNE 


1 $ 


TP NOT 1 IID Q A 1/ 8 ruU TUC MYT 
i. r itu I , LUr DHt\ a Lnl\ 1 nt NA 1 


3871 














I F YES . 


3872 


01 1 664 


01 2700 


1 77764 




MOV 


#-14 RO 


opccT tup f-m imt ;no 11 c cnnoc 


3873 


01 670 




000037 






#37 R1 


r i pad cpr*TnD ci idcatc dttc 

wLuhr 3LU 1 UK , SUKrAWt Olio 


3874 


01 1 674 


00 5704 






TST 


R4 




3875 


01 1 676 


00 1 004 






BNE 


9$ 


YFQ RE , Kjru 

T CO , DH. .P4wr1 


3876 


01 1700 


00 5204 






INC 


R4 


NO 


3877 


01 1702 




000020 




ADO 


#20 R1 ; 


T NTRFWIFNT TWP Anppc. rr\ wvt Ci id FirF 


3878 




00 0870 






BR 


1 $ ; 


ww rtCMw wUKrMw& 1 




01 1 7?0 


tltS K A Ail 




9S : 








3880 


011712 


062701 


000040 




ADD 


#40, R1 ; 


I NCREMENT TO NXT CYL 


3881 


011716 


005205 






INC 


R5 • 


HAVE U CHKD ALL 203 CYLINDERS 


3882 


01 1720 


001263 






BNE 


1$ ; 


IF NOT, LOOP BACK & CHK THE NXT CYLINDER 


3883 














YES 


3884 
















3885 
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-FEB-78 
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3886 








3887 








3888 








3889 








3890 








3891 








3892 








3893 








3894 


01 1722 


000004 




3895 


011724 


012737 


000005 


3896 


01 1732 


012703 


001372 


3897 








3898 


01 1736 


005037 


001356 


3899 








3900 


01 1742 


01 3700 


001332 


3901 


01 1746 


01 3701 


001326 


3902 


01 1752 


01 3702 


001330 


3903 


01 1756 


012737 


011764 


3904 








3905 


01 1764 


000240 




3906 


011766 


104413 




3907 








3908 








3909 








3910 








391 1 








3912 








3913 








3914 








3915 








3916 


01 1770 


104421 




3917 








3918 








3919 








3920 


01 1772 


01 3704 


001350 


3921 


01 1776 


051304 




3922 


012000 


01 0477 


167334 


3923 


012004 


012710 


000011 


3924 








3925 


012010 


104412 




3925 








3927 


012012 


104021 




3928 








3929 








3930 








3931 


012014 


005005 




3932 


012016 


03271 1 


000100 


3933 


012022 


001005 




3934 


012024 


005205 




3935 


012026 


001 373 




3936 


01 2030 


004737 


020774 


3937 


01 2034 


104026 




3938 








3939 


012036 


03271 1 


001000 


3940 


012042 


001403 




3941 


012044 


004737 


020774 
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T26 CHECK ' SEEK' FUNCTION, WITH DIFFERRENT VELOCITY MODES 



SEO 0072 



;*TEST 26 CHECK ' SEEK 1 FUNC 

THIS TEST CHECKS SEEK 
3 < DIFF < 31 , DIFF > 
IN FWD AND REV DIRECTI 
WHILE DOING A SEEK 'SI 
THE POSITIONING LOGIC 

SCOPE 

MOV #5,STIMES 
MOV #SEEK0,R3 



TI0N, WITH DIFFERRENT VELOCITY MODES 
IN DIFFERENT VELOCITY MODES (DIFF <3 , 

31 ) . FOR THESE 3 BASIC VELOCITIES SEEK IS DONE BOTH 
ON TO CHECK THE ADDER & DIFFERENCE LOGIC. IF 
OCCURS, A DRIVE RESET IS DONE TO INITIALIZE 



1$: 

2$: 



4$: 
5S: 



CLR 

MOV 
MOV 
MOV 
MOV 



INDX1 

RKCS.R0 
RKDS.R1 
RKER.R2 
#15,$LPERR 



NOP 

CNT. RESET 



MOV 
BIS 
MOV 
MOV 



DRIVAD , R4 
(R3) ,R4 

R4,@RKDA 
#11 ,®»RQ 



CHKCRDY 
ERROR 21 



CLR 
BIT 
BNE 
INC 
BNE 
JSR 
ERROR 

BIT 
BEQ 
JSR 



R5 

#100, 6R1 

6$ 

R5 

5$ 

PC , GT4RG 

26 

#1000, (P>R1 
7$ 

PC , GT4RG 



;DO 5 ITERATIONS 
INITIALIZE POINTER TO THE FIRST 
SEEK ADDRESS m 
INDX1 , WHEN INDICATES SEEK fN FWD DIRECTION 
WHEN 1 INICATES SEEK IN REV DIRECTION 



SET RETURN ADRES FOR LUPING ON 

EROR (SW 9) 

GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 1 CNTRL- 
RESET ' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 1 CNTRL RDY ' DOES NOT SET 
AN ERROr* IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 
GO, CHECK IF SIN IS SET, IF SET 
DO DRV-RESET TO CLEAR IT 



GET DRIV-ADRES 
SET CYLINDER BITS 
ADDRS THE DRIVE 
SET 'SEEK' , 'GO' 

GO CHECK IF CONTROL RDY IS SET 

IF SO. SKIP THE EROR MESSAGE. 

' CNTRL RDY ' DID NOT SET AFTER 

SENDING CYL ADD TO THE DRIV, ' ADD ACK 1 

FROM DRIVE SHLD HAVE COME BACK 

THEREUPON SETTING 'CNTRL RDY 1 

DID R/W/S RDY SET? 
YES. BRANCH 
NO, WAIT 

WAITED LONG? 

GO, GET RKCS , ER . DS , DA 
R/W/S RDY DID NOT SET ON 
COMPLETION OF SEEK 
DID SIN SET? 
NO. BRANCH 

GO, GET RKCS, ER, DS , DA 



MD-1 1-CZRKKF , RK1 1 BASIC LOGIC TEST 2 
CZRKKF.P11 21-FE3-78 08:51 



MACY1 1 30A( 1052) 21-FE3-78 08:58 PAGE 74 

T26 CHECK ' SEEK 1 FUNCTION, WITH D I F F ERRENT VELOCITY MODES 



SEQ 0073 



3942 


01 2050 


104001 




3943 


012052 


032710 


140000 


3944 


012056 


001403 




3945 


01 2060 


004737 


020774 


3946 


01 2064 


104022 




3947 








3948 








3949 








3950 


012066 


022710 


000210 


3951 


012072 


001406 




3952 


01 2074 


01 1037 


001 164 


3953 


01 21 00 


01 2737 


00021 


3954 


01 21 OS 


1 04024 




3955 








3956 








3957 


012110 


020477 


167224 


3958 


012114 


001406 




3959 


012116 


01 0437 


001 162 


3960 


012122 


01 7737 


167212 


3961 


0121 30 


104027 




3962 








3963 


012132 


01 0477 


167202 


3964 


01 21 36 


01 2777 


033342 


3965 


012144 


01 2777 


177777 


3966 


01 21 52 


01 271 


002005 


3967 


01 21 56 


104414 




3968 


01 2160 


021337 


033342 


3969 


01 21 64 


001410 




3970 


012166 


005037 


001 162 


3971 


C121 72 


01 1337 


001 164 


3972 


012176 


01 3737 


033342 


3973 


012204 


104043 




3974 








3975 








3976 








3977 


012206 


005737 


001356 


3978 


012212 


001007 




3979 


O 1 2214 


005723 




3930 


012216 


022703 


001400 


3981 


01 2222 


001260 




3982 


01 2224 


005237 


001356 


3983 


01 2230 


005743 




3984 


012232 


005743 




3985 


012234 


022703 


001370 


3986 


012240 


001251 




3987 








3988 








3989 








3990 








3991 








3992 








3993 








3994 








3995 








3996 








3997 









167172 
167162 



SIN SET ON DOING SEEK 

DID 'HE' OR 'ERR' SET? 
YES 

GO, GET RKCS, ER, DS, DA 
1 ERR OF 'HE' BIT SET WHEN 
SEEKING TO CYL AS INDICATED 
IN RKDA 

DOES RKCS STILL CONTAIN THE ' SEEK 1 FNCTION 

YES - EXIT 

NO, GET RKCS RECVD 

GET EXPCTD RKCS 

RKCS SHOULD CONTAIN THE 1 SEEK ' BITS 

IF NOT, ERROR 

DID RKDA CHANGE? 

NO 

YES, GET EXPCTD? 
GET RKDA 

RKDA CHANGED AFTER DOING SEEK 

ADRES THE DRIVE, SEC 

READ ONE HEADER INTO THIS 

BUS ADRES 

GO, READ FORMAT 

WAIT FOR CNTRL RDY 

WAS THE CORRECT READE4R READ ( FROM 
CYLINDER TO WHICH SEEK WAS DONE BEFORE) 
STORE SEC # FROME WHERE HDP WAS RD (0) 
GET EXPCTD HEADER 
GET HDR RECVD 

WRONG HDR WAS RECVD FROM CYLINDER (ADRES 

IN ER MSGE). NOTE THAT A PURE SEEK WAS 

DONE TO THIS CYL BEFORE READING HDR 

USING READ FORMAT 

SEEK IN REVRSE DIRECTION? 

YES, BRANCH 

NO, INCREMENT PTR TO NXT SEEK ADRES 

DONE WITH ALL SKS IN FWD DIR? 

NO, GO & DO NXT ONE 

SET FLAG INDICATING SK IN REVRSE 

POSITION PTR TO NXT SK IN REV 

DONE WITH ALL? 

IF NOT , DO NXT ONE 



ERROR 1 

bit #140000, mo 

BEQ 8$ 

JSR PC , GT4RG 

ERROR 22 



CMP #210, @R0 

BEO 9$ 

MOV @R0,$REG1 

MOV #210, SREGO 

ERROR 24 



CMP R4,@RKDA 

BEO 10$ 

MOV R4,$REG0 

MOV @RKDA , $REG1 

ERROR 27 

MOV R4,@RKDA 

MOV #OUTBUF,#RKBA 

MOV #-1 ,@RKWC 

MOV #2005, @R0 
CNT.RDY 

CMP (R3),QUTBUF 

BEQ 11$ 

CLR SREGO 

MOV (R3) ,$REG1 

MOV 0UTBUF,$REG2 

ERROR 43 



TST INDX1 

BNE 12$ 

TST (R3)+ 

CMP #SEEK2+2,R3 

BNE 1$ 

INC INDX1 

TST ~(R3) 

TST ~(R3) 

CMP #SEEK0-2,R3 

BNE 1$ 



CHECK DRIVE RESET FROM LAST CYLINDER 
>THE HEADS ARE POSITIONED ON THE LAST CYLINDER ( DOING 
^ AN IMPLIED SEEK-READ) . THEN A DRIVE RESET IS ISSUED. 
KIT'S CHECKED IF THE HEADS WERE BROUGHT BACK TO BY 
kDOING A 1 WORD READ & CHECKING THAT THE CORRECT WORD 
*WAS RECEIVED. IF TESTING ON SIMULATOR THIS TEST IS SKIPPED. 



MD-1 1-CZRKKF , RK1 1 BASIC LOGIC TEST 2 
CZRKKF. P1 1 21-FEB-78 08:51 



MACY1 1 30A( 1052) 21-FEB-78 08:58 PAGE 75 
T27 CHECK DRIVE RESET FROM LAST CYLINDER 



3998 


01 2242 


000004 




3999 


012244 


01 2737 


000005 


4000 


012252 


005737 


001344 


4001 


012256 


001 124 




4002 


012260 


01 3701 


001332 


4003 


012264 


104413 




4004 








4005 








4006 








4007 








4008 








4009 








4010 








401 1 








4012 








4013 


012266 


005000 




4014 


012270 


01 2703 


033342 


4015 


012274 


01 3704 


001350 


4016 


01 2300 


01 0405 




4017 


012302 


052705 


014500 


4018 


012306 


01 0577 


167026 


401 9 


012312 


01 2777 


177777 


4020 


012320 


01 0377 


167012 


4021 








4022 


012324 


01 271 1 


000005 


4023 








4024 


012330 


005000 




4025 


012332 


104414 




4026 








4027 








4028 








4029 








4030 








4031 








4032 


01 2334 


020513 




4033 


012336 


001407 




4034 


01 2340 


01 0537 


001 162 


4035 


012344 


01 1337 


001 164 


4036 


012350 


01 0537 


001 166 


4037 


012354 


104044 




4038 








4039 








4040 








4041 








4042 


012356 


01 271 * 


000015 


4043 


012362 


104414 




4044 








4045 








4046 








4047 








4048 








4049 








4050 


012364 


005000 




4051 


012366 


032777 


000100 


4052 


012374 


001 01 1 




4053 


012376 


01 2702 


177763 



TST27: SCOPE 

MOV 



TST 
BNE 
MOV 
CNT , 



#5,$TIMES 
SIMUL 
TST30 
RKCS.R1 
RESET 



CLR 
MOV 
MOV 
MOV 
BIS 
MOV 
MOV 
MOV 



RO 

#0UTBUF,R3 
DRIVAD, R4 
R4.R5 
#14500, R5 

R5,§>RKDA 
#-1 ,@RK..'C 

R3,@RKBA 

#5,@R1 



CLR 

CNT.RDY 



CMP 

BEQ 
MOV 
MOV 
MOV 
ERROR 



R5,@R3 
3$ 

R5, SREGO 
@>R3,$REG1 
R5.SREG2 

44 



MOV #15,@R1 

CNT RDY 



CLR 
BIT 
BNE 
MOV 



RO 

#100,e>RKDS 

5$ 

#-15, R2 



; DO 5 ITERATIONS 

R U ON A SIMULATOR? 

; YES, EXIT 

GO, DO CONTROL RESET 
THIS IS A CALL FOR THE "CNTRL" 
RESET 1 ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 1 CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 

ADRES WHERE DATA WILL BE READ INTO 



;SET CYL ADRES=312 (OCTAL) 

; ADRES THE DRIVE, LAST CYLINDER 

; READ 1 WORD 

; INTO THIS MEMORY ADRES 



; READ , GO 



THIS IS A CALL FOR CN.RDY ROUTINE 

WHICH WAITS FOR CNTRL RDY TO SET. 

A RETURN IS MADE AFTER CNTRL RDY 

SETS. IF WITHIN A CERTAIN TIME 

CNTRL RDY DOESN 1 T SET AN ERROR 

MESSAGE IS GIVEN. WAITING TIME 

883 MS FOR 11/20, 175 MS FOR 1 1/45 

WAS THE CORRECT WORD READ? 

YES, SEEK TO 312 WAS DONE C0RRECTLY5 ,9 

GET EXPCTD WORD 

GET WORD RECVD 

GET DSK-ADRES FROM WHERE WORD WAS READ 
DID NOT READ BACK CORRECT WORD FROM 
LAST CYL, SEC 0. IF TEST 45 & 46 
WERE SUCCESSFULLY DONE THIS 
ERROR MEANS THAT IMPLIED SEEK 
TO CYL 312 COULD NOT B DONE 
DRIVE RESET, GO 

THIS IS A CALL FOR CN.RDY ROUTINE 
WHICH WAITS FOR CNTRL RDY TO SET. 
A RETURN IS MADE AFTER CNTRL RDY 
SETS. IF WITHIN A CERTAIN TIME 
CNTRL RDY DOESN * T SET AN ERROR 
MESSAGE IS GIVEN. WAITING TIME 
883 MS FOR 1 1/20. 175 MS FOR 1 1/45 

DID R/W/S RDY SET? 
YES, BRANCH 

IF U R ON A SLOWER MACHINE 
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CZRKKF. 


P1 1 21 


-FEB-78 


08:51 


4054 


012402 


005202 




4055 


012404 


001376 




4056 








4057 








4058 








4059 








4060 








4061 








4062 








4063 








4064 








4065 


012406 


0052C0 




4066 


012410 


00 1 366 




4067 








4068 


012412 


004737 


020774 


4069 


012416 


104026 




4070 








4071 


012420 


03271 1 


140000 


4072 


012424 


001403 




4073 








4074 


012426 


004737 


020774 


4075 


012432 


104022 




4076 








4077 


012434 


005205 




4078 


012436 


020577 


166676 


4079 


012442 


001406 




4080 


012444 


01 0537 


001 162 


4081 


012450 


01 7737 


166664 


4082 


012456 


104054 




4083 








4084 








4085 


01 2460 


01 2777 


177777 


4086 


012466 


01 0377 


1 66644 


4087 


012472 


01 0477 


166642 


4088 








4089 


012476 


01 271 1 


000005 


4090 








4091 


012502 


005000 




4092 


012504 


104414 




4093 








4094 








4095 








4096 








4097 








4098 








4099 


012506 


02041 3 




4100 


012510 


001407 




4101 


012512 


01 0437 


001 162 


4102 


012516 


01 1337 


001 164 


4103 


012522 


01 0437 


001166 


4104 


012526 


104044 




4105 








4106 








4107 








4108 








4109 
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SEQ 0075 



1 66646 7$ : 



INC 
BNE 



R2 
.-2 



INC 
BNE 

JSR 
ERROR 

BIT 
BEG 

JSR 
ERROR 

INC 
CMP 
BED 
MOV 
MOV 
ERROR 



MOV 
MOV 
MOV 



CLR 

CNT.RDY 



RO 

4$ 

PC.GT4RG 

26 

#140000, @R1 
6$ 

PCGT4RG 
22 

R5 

R5.9RKDA 

7$ 

R5,$REG0 
@RKDA , $REG1 

54 



#-1 ,@RKWC 

R3.9RKBA 

R4,@RKDA 

#5,@R1 

RO 



CMP 
BEQ 
MOV 
MOV 
MOV 
ERROR 



R4,@R3 

TST30 

R4.SREG0 

@R3,$REG1 
R4,$REG2 

44 



& DO NOT NEED SUCH A LARGE MACHINE 
TIME LOOP , CHANGE THESE 3 
INSTRUCTIONS TO 'NOP 1 THE 
LOOP TIME WILL BE REDUCED 
TO 1100 MS 

THE TOTAL TIME FOR THE ABOVE 

LOOPS (W/O PUTTING 'NOP'S) IS 

5304 MS FOR 1 1 /20 AND 

1061 MS FOR 1 1/45 WITH MOS 

OR BIPOLAR MEMORY 

WAITED LONG? 

IF NOT, LUP BAK & WAIT 

IF YES, ERROR 

GET RKCS , ER , DS , DA 

R/W/S RDY DID NOT SET AFTER 

DOING DRIVE RESET 

DID HE OR ERR BIT SET? 

IF NOT , BRANCH 

GET RKCS , ER , DS , DA FOR ERROR MESSAGE 
HE OR ERR BIT SET ON DOING DRIVE 
RESET FROM LAST CYLINDER 
POSITION R5 TO EXPCTD RKDA 

DID THE CYL ADRES BITS IN RKDA GET CHANGED? 

NO, BRANCH 

GET EXPCTD RKDA 

GET RKDA RECVD 

CYLINDER ADRES BITS IN RKDA 

GOT CHANGED AFTER 

DRIVE RESET, FROM LAST CYLINDER 

READ 1 WORD 

INTO THIS ADRES 

FROM THIS DSK ADRES-CYL 0, SEC 
; READ , GO 



THIS IS A CALL FOR CN.RDY ROUTINE 
WHICH WAITS FOR CNTRL RDY TO SET. 
A RETURN IS MADE AFTER CNTRL RDY 
SETS. IF WITHIN A CERTAIN TIME 
CNTRL RDY DOESN'T SET AN ERROR 
MESSAGE IS GIVEN. WAITING TIME 
883 MS FOR 1 1/20, 175 MS FOR 11/45 
WAS THE CORRECT WORD READ? 
; YES, EXIT 
GET EXPCTD WORD 
GET WORD RECVD 

GET DISK ADRES WHERE ERROR CCCURED 
DID NOT READ CORRECT WORD FROM 
CYL 0. SEC 0. IF TEST 45 & 46 
WERE SUCCESSFULLY DONE THIS 
ERROR COULD MEAN THAT DRIVE-RESET 
DID NOT BRING HEADS BACK TU 0. 
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T27 CHECK DRIVE RESET FROM LAST CYLINDER 



4110 






41 1 1 






41 12 






41 13 






41 14 






4115 






4116 






4117 






41 18 






4119 


012530 


000004 


4120 


012532 


104413 


4121 






4122 






4123 






41 24 






4125 






4126 






4127 






4128 






4129 






4130 


012534 


104421 


4131 






4132 


012S3® 


013704 


4133 






4134 






4135 






4136 






4137 






4138 






4139 






4140 






4141 






4142 






4143 






4144 






4145 






4146 






4147 


012542 


01 2700 


4148 


012546 


01 2701 


4149 


012552 


01 2702 


4150 


012556 


01 2703 


4151 






4152 


012562 


01 0320 


4153 


012564 


005202 


4154 


01 2566 


060103 


4155 


012570 


01 0320 


4156 


012572 


005202 


4157 


012574 


001374 


41 58 






4159 


012576 


01 2777 


4160 


01 2604 


01 2777 


4161 


012612 


01 3777 


4162 






4163 


012620 


01 2714 


4164 






4165 


012624 


105714 



;*TEST 30 



************************************* 
'WRITE 1 - 256 WORD BLOCK ON SECTOR 0, 



CYLINDER 



; THE TEST BELOW SHOULD BE CONSIDERED AS A SET UP PHASE FOR 
; THE FOLLOWING TEST. IT WRITES A BLOCK OF 256 WORDS IN 
; SECTOR 0, CYLINDER WITH A SPECIFIC PATTERN AND THIS WRITTEN 
; BLOCK WILL BE MADE USE OF IN THE NEXT TEST TO CHECK 
;OUT 'WRITE-CHECK' AND ' READ CHECK 1 FUNCTIONS. 
^hi**********^********************************************* 
SCOPE 

CNT. RESET ; GO , DO CONTROL RESET 

;THIS IS A CALL FOR THE 1 CNTRL- 
; RESET 1 ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE 'CNTRL RDY' DOES NOT SET 
; AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET 1 IS LOCATED. 
;THIS IS A VERY BASIC ERRS IF IT 
■.OCCURS GO BACK TO TEST 10 
TST.SIN ; CHECK IF SIN IS SET, IF SET 

;D0 DRIVE RESET TO CLEAR IT 



MOV 



RKCS.R4 



; THE FOLLOWING CODE IS FOR SETTING 
UP THE I/O BUFFER IN MEMORY (STARTING AT 
OUTBUF) , WITH A PARTICULAR 256 WORD PATTERN. 
STARTING FROM THE FIRST WORD IN THE BUFFER 
THE LO BYTE WILL BE A COUNT PATTERN 
FROM TO 255 (DECIMAL) , WHEREAS THE 
HI-BYTE WILL BE THE COMPLEMENT OF LO BYTE, 
A DECREASING COUNT PATTERN FROM 255 TO 0. 
I.E. THE BUFFER WILL LOOK LIKE: 
OUTBUF ( 1 1 1 1 111 1 00 000 000) 

OUTBUF+2 (1 1 1 1 1 1 1 00 000 001 ) 



LAST WORD 



(0 000 000 1 1 1 1 1 111 ) 



177401 
177400 
1 77400 



1 77400 
033342 
001350 



166530 

166524 
166520 



MOV 


#OUTBUF,R0 




MOV 


#177401 ,R1 


PATTERN GENERATING NUMBER 


MOV 


#-400, R2 


SET UP COUNT FOR 256 WORDS 


MOV 


#177400. R3 


SET UP THE FIRST PATTERN TO B WRITTEN 


MOV 


R3, (R0) + 


SET UP FIRST WORD IN I/O BUFFER 


INC 


R2 


INCREMENT COUNT 


ADD 


R1 ,R3 


SET UP NEXT WORD PATTERN 


MOV 


R3, (R0)+ 


WRITE IT IN NXT I/O BUFFER WORD 


INC 


R2 


HAVE U WRITTEN ALL 256 WORDS 


BNE 


1$ 


IF NOT GO & WRITE NEXT PATTERN 


MOV 


#-400,PRKWC 


WRITE 256 WORDS 


MOV 


0OUTBUF .PRKBA 


STARTING FROM THIS BUS ADRES 


MOV 


DRlVAD.eRKDA 


TO THIS DISK ADRES, C V L 0, SEC 


MOV 


#3,0R4 ; WRITE, GO 


TSTB 


@R4 


WAS CNTRL RDY CLEARED AS GO WAS SET? 
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SEQ 0077 



4166 


012626 


1 00003 








BP L 


3$-2 


; YES, BRANCH 


4167 


01 2630 


004737 


021002 






JSR 


PCGT3RG 


; GET RKCS, ER, DS 


4168 


012634 


104030 








ERROR 


30 


; CNTRL RDY DID NOT CLEAR AS GO WAS SET 


4169 
















;T0 'WRITE' 


4170 


















4171 


012636 


005002 








CLR 


R2 




4172 


012640 


1 05777 


166466 




3$: 


TSTB 


©RKCS 


;DID CNTRL RDY SET? 


41 73 


012644 


10041 1 








BMI 


4$ 


; YES, BRANCH 


4174 


01 2646 


005202 








INC 


R2 


; WAITED LONG ENOUGH? 


41 75 


012650 


001373 








BNE 


3$ 


; IF NOT , LUP BAK & WAIT 


41 76 
















; IF YES, ERROR 


4177 


012652 


004737 


020774 






JSR 


PC , GT4RG 


;G0, GET RKCD , ER, DS, DA 


41 78 


012656 


01 3737 


001350 


001202 




MOV 


DRI VAD , $REG1 


; GET THE STARING ADRES 


4179 


012664 


1 0441 6 








BRKDA4 




; BREAK CONTENTS OF SREG10 INTO 


4180 
















•DRV #, CYL, SUR, SEC U 


4181 


012666 


104031 








ERROR 


31 


CNTRL RDY DID NOT SET ON COMPLETION 


4182 
















OF WRITE OF 256 WORDS ON CYL 0, SEC 


4183 
















' RKDA ' IN EROR MSGE GIVES THE 


4184 
















CONTENTS OF RKDA AT THE TIME OF EROR 


4185 
















WRITE WAS DONE STARTING AT <DSK-ADRES> 


4186 
















INDICATED IN EROR MSGE 


4187 


012670 


004737 


021234 




4$: 


JSR 


PC.CHKHu 


CHECK IF 'ERR 1 OR 'HE 1 BIT IS SET, 


4188 
















IF YES, RETURN HERE 


4189 


012674 


104032 








ERROR 


32 


HE OR ERR BIT SET ON DOING WRITE OF 


41 90 
















256 WORDS ON CYL 0, SEC 


4191 
















WRITE WAS DONE STARTING AT <DSK-ADRES> 


4192 
















Indicated in eror msge 


4193 
















1 RKDA ' IN EROR MSGE GIVES THE 


4194 
















CONTENTS OF RKDA AT THE TIME OF EROR 


4195 


012676 


020077 


166434 




5$: 


CMP 


RO,@RKBA 


DID RKBA INCREMENT CORRECTLY? 


4196 


012702 


001406 








BEQ 


6$ 


YES, BRANCH 


4197 


012704 


01 0037 


001 162 






MOV 


RO,$REGO 


GET EXPCTD RKBA 


4198 


012710 


01 7737 


166422 


001164 




MOV 


§>RKBA,$REG1 


GET RKBA RECVD 


4199 


012716 


104035 








ERROR 


35 


RKBA DID NOT INCREMENT CORRECTLY 


4200 
















( BY 1000 OCTAL BYTES) AFTER WRITE 


4201 
















OF 400 (OCTAL) WORDS ON SEC 0, CYL 


4202 


012720 


004737 


021316 




6$: 


JSR 


PC.CHKWC 


CHECK IF RKWC OVERFLOWED TO 0, 


4203 
















I F NOT RETURN HERE . 


4204 


012724 


104034 








ERROR 


34 


RKWC DID NOT OVERFLOW. AFTER A 


4205 
















WRITE OF 256 WORDS ON CYL 0, SEC 


4206 


012726 


004737 


021262 




7$: 


JSR 


PC , CHKDA 


CHECK IF RKDA INCREMENTED CORRECTLY , 


4207 
















IF NOT RETURN HERE 


4208 


012732 


104033 








ERROR 


33 


RKDA DID NOT INCREMENT BY 1 AFTER 


4209 
















A WRITE OF 256 WORDS IN CYL 0, SEC 


4210 


012734 


004737 


021342 




8$: 


JSR 


PC.CHKER 


CHECK IF ANY BIT RKER IS SET 


421 1 
















IF YES :.ETURN HERE. 


4212 


01 2740 


104036 








ERROR 


36 


RKER BIT SET ON DOING WRITE ON 


4213 
















CYLINDER 0, SECTOR 


4214 


01 2742 


022714 


000202 




9$: 


CMP 


#202, @R4 


DOES RKCS STI LL CONTAIN THE WRITE BITS? 


4215 


012746 


001406 








BEQ 


TST31 


; YES, EXIT 


4216 


012750 


01 2737 


000202 


001 162 




MOV 


#202,$REG0 


GET EXPECTED RKCS 


4217 


012756 


01 1437 


001 164 






MOV 


@R4,$REG1 


GET RKCS RECVD 


4218 


012762 


104024 








ERROR 


24 


RKCS DID NOT CONTAIN THE 'WRITE 1 


4219 
















BITS AFTER THE FUNCTION WAS DONE. 


4220 


















4221 
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T31 CHECK THAT WRITE WAS DONE CORRECTLY 



SEQ 0078 



4222 








4223 








4224 








4225 








4226 








4227 








4228 








4229 








4230 








4231 








4232 








4233 


012764 


000004 




4234 


012766 


104413 




4235 








4236 








4237 








4238 








4239 








4240 








4241 








4242 








4243 








4244 


012770 


104421 




4245 








4246 


012772 


01 2700 


177400 


4247 


012776 


01 2701 


033342 


4248 


013002 


005021 




4249 


013004 


005200 




4250 


013C06 


001375 




4251 


013010 


005000 




4252 


013012 


01 2777 


1 77400 


4253 


013020 


01 2777 


033342 


4254 


013026 


01 3777 


001350 


4255 








4256 


013034 


01 2777 


000005 


4257 








4258 


01 3042 


105777 


166264 


4259 


013046 


10041 1 




4260 


012050 


005200 




4261 


013052 


001373 




4262 








4263 


01 3054 


004737 


020774 


4264 


013060 


01 3737 


001350 


4265 


013066 


104416 




4266 








4267 


013070 


104045 




4268 








4269 








4270 








4271 








4272 








4273 


013072 


032777 


001000 


4274 


0131 00 


00 1 033 




4275 


0131 02 


01 2701 


177400 


4276 


0131 06 


01 2702 


177777 


4277 


0131 12 


01 2703 


033342 



;*TEST 31 CHECK TK\T WRITE WAS DONE CORRECTLY 

*THIS TEST CHECKS IF THE 'WRITE ' OF 256 WORDS DONE IN PREVIOUS 
*TEST IS GOOD. THE SEQUENCE OF OPERATIONS IS AS FOLLOWING: 
*1 ) DO A READ OF 256 WORDS FROM SECTOR 0, CYLINDER 

* INTO A BUFFER STARTING AT 'OUTBUF' . 

*2) COMPARE & CHECK THE DATA THAT IS READ (STARTING AT 1 OUTBUF 1 ) 

* WITH THE DATA THAT WAS GENERATED PREVIOUSLY 
*3) REPORT AN ERROR IF THE DATA READ BACK FROM DISK DOES 

* NOT COMPARE WITH DATA THAT WAS SUPPOSE TO HAVE BEEN WRITTEN 



TST31 : SCOPE 

CNT. RESET 



2$: 
5$: 



MOV 
MOV 
CLR 
INC 
BNE 
CLR 
MOV 
MOV 
MOV 

MOV 

TSTB 
BMI 
INC 
BNE 



JSR 
MOV 
BRKDA4 



#™400, RO 

#OUTBUF,R1 

(R1 ) + 

RO 

8$ 

RO 

#-400,@RKWC 

#OUTBUF,@RKBA 

DRIVAD.PRKDA 

#5,f»RKCS 

PRKCS 
2$ 
RO 
1$ 

PC , GT4RG 
DRIVAD , SREG1 



BIT 
BNE 
MOV 
MOV 
MOV 



#1000,@RKDS 
TST32 
#-400, R1 
#177777, R2 
#0UTBUF,R3 



;GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE "CNTRL- 

; RESET ' ROUTINE. A CONTROL RESET IS 

; ISSUED AND AFTER A CERTAIN TIME 

; IF THE 'CNTRL RDY' DOES NOT SET 

; AN ERROR IS REPORTED. NOTE THAT 

; THE PC IN ERROR MESSAGE IS THE 

; PC WHERE 'CNT. RESET' IS LOCATED. 

;THIS IS A VERY BASIC ERR& IF IT 

; OCCURS GO BACK TO TEST 10 

; CHECK IF SIN IS SET, IF SET 

;DO DRIVE RESET TO CLEAR IT 

;SET COUNT FOR 400 WORDS 

;TO BE CLEARED IN THE BUFFER 

;CLR THE 400 WORD BUFFER 

; STARTING AT 'OUTBUF 1 



READ 256 WORDS 

INTO THIS ADRES 

STARTING FROM THIS DISK ADRES 

READ, GO 

DID CNTRL RDY SET? 

YES, BRANCH 

WAITED LONG ENOUGH? 

IF NOT, LUP BAK & WAIT 

ERROR. IF YES 

GO, GET RKCD, ER. DS , DA 

GET THE STARTING ADRES 

GO TO ' BDA4 1 & BREAK CONTENTS OF 

SREG10 INTO DRV ft, CYL. SUR. SEC BITS 

CNTRL RDY DID NOT SET AFTER READ 

OF 400 WORDS FROM CYL 0, SEC 

' RKDA' IN EROR MSGE GIVES THE 

CONTENTS OF RKDA AT THE TIME OF EROR 

READ WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

IS SIN SET? 

; IF YES, EXIT 
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CZRKKF. 


P 1 1 21 


-FE8-78 


4278 


0131 16 


012705 


4279 


01 31 22 


062702 


4280 


01 31 26 


020213 


4281 






4282 


013130 


001414 


4283 






4284 


01 31 32 


01 01 37 


4285 


0131 36 


062737 


4286 


013144 


01 0237 


4287 






4288 


0131 50 


01 1337 


4289 


013154 


104055 


4290 






. 4291 






4292 






4293 


013156 


005205 


4294 


013160 


001403 


4295 


013162 


005723 


429S 






4297 


013164 


005201 


4298 


013166 


001355 


4299 






4300 






4301 






4302 






4303 






4304 






4305 






4306 






4307 


013170 


000004 


4308 


013172 


104413 


4309 






4310 






431 1 






4312 






4313 






4314 






4315 






4316 






4317 






4318 


013174 


104421 


4319 






4320 


0131 76 


01 3701 


4321 


01 3202 


01 3702 


4322 


013206 


01 3703 


4323 


013212 


01 3704 


4324 


013216 


012737 


4325 


013224 


012712 


432B 


013230 


01 3713 


4327 


013234 


01 2714 


4328 


013240 


01 271 1 


4329 






4330 


013244 


10571 1 


4331 


013246 


100003 


4332 


013250 


004737 


4333 


013254 


104030 
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T31 CHECK THAT WRITE WAS DONE CORRECT LY 



SEO 0079 



000401 
001 164 



MOV 
ADD 
CMP 



MOV 
ADD 
MOV 

MOV 
ERROR 



INC 
BEQ 
TST 

INC 
BNE 



#-5,R5 
#177401 ,R2 
R2, (R3) ; WAS 



R1 ,$REGO 
#401 ,SREGO 
R2.SREG1 

(R3) ,$REG2 

55 



R5 

TST32 
(R3) + 

R1 
6$ 



;*TEST 



5 1**** 
TST32 ! 



********************** 
32 CHECK 'READ CHEC 

;*THIS TEST CHECKS OUT Tl 
* 1 CYLINDER , SECTOR 0) 1 
♦WRITES THE DATA BLOCK 

SCOPE 
CNT. RESET 





TST. SIN 




001332 


MOV 


RKCS.R1 


001334 


MOV 


RKWC.R2 


001340 


MOV 


RKDA.R3 


001336 


MOV 


RKBA.R4 


052525 033342 


MOV 


#52525, OUTBUF 


177400 


MOV 


#-400, @R2 


001350 


MOV 


DRIVAD,®>R3 


033342 


MOV 


#0UTBUF,©R4 


000013 


MOV 


#13,@R1 


1$: 


TSTB 


@R1 




BP L 


2$ 


021002 


USR 


PC.GT3RG 




ERROR 


30 



READ WORD SAME AS THE WORD 

THAT WAS SUPPOSE TO BE WRITTEN 

YES , BRANCH 

NO, ERRwR 

GET THE # OF WORD 

THAT IS IN ERROR (EXAMPLES .2—376,377.400) 

GET EXPCTD WORD (THAT WAS SUPPOSED TO 
BE WRITTEN) 

GET WORD RECVD (THAT WAS READ BAK) 
DID NOT READ BACK WORD THAT WAS SUPPOSED 
TO HAVE BEEN WRITTEN PREVIOUSLY. POSITION 
OF WORD IN ERROR IS AS INDICATED BY 
WORD # (SREGO) , SEC 0, CYL 

{EXIT 

INCREMENT POINTER TO NXT WORD (THAT 

WAS READ BACK) 

HAVE U CHKD ALL 256 WORDS? 

IF NOT, LUP BAK & CHK THE NXT WORD 

IF YES , EXIT 

K' FUNCTION - CYLINDER 0, SECTOR 
HE BASIC :READ CHECK' LOGIC, USING THE DATA BLOCK 
RITTEN IN A PREVIOUS TEST. HENCE THE TEST WHICH 
SHOULD BE DONE PRIOR TO THIS TEST. 

;G0, DO CONTROL RESET 
;THIS IS A CALL FOR THE 1 CNTRL- 
; RESET 1 ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE 1 CNTR L RDY 1 DOES NOT SET 
; AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERRS IF IT 
; OCCURS GO BACK TO TEST 10 
; CHECK IF SIN IS SET, IF SET 
;D0 DRIVE RESET TO CLEAR IT 



; READ CHECK 256 WORDS 

; STARTING FROM CYL 0, SECTOR 

; READ CHECK, GO 

;DID CNTRL RDY GET CLEARED AS GO WAS SET? 

; YES, BRANCH 

; GET RKCS, ER , DS 

; CNTRL RDY DID NOT CLEAR AS GO 
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4334 


013256 


104412 




4335 








4336 








4337 


013260 


104056 




4338 








4339 


013262 


03271 1 


140000 


4340 


013266 


001403 




4341 


013270 


004737 


021002 


4342 


013274 


104057 




4343 








4344 


013276 


032777 


000002 


4345 


013304 


001404 




4346 


013306 


01 7737 


166016 


4347 


01 3314 


104060 




4348 








4349 








4350 


013316 


005712 




4351 


013320 


001405 




4352 


013322 


01 1237 


001 162 


4353 


013326 


01 1 137 


001 164 


4354 


013332 


104061 




4355 








4356 


013334 


01 3702 


001350 


4357 


013340 


005202 




4358 


013342 


020213 




4359 


013344 


00 1405 




4360 


013346 


01 0237 


001 162 


4361 


013352 


01 1337 


001 164 


4362 


013356 


104062 




4363 








4364 








4365 


013360 


022714 


033342 


4366 


013364 


001406 




4367 


013366 


01 2737 


033342 


4368 


013374 


01 1437 


001 164 


4369 


013400 


104063 




4370 








4371 








4372 


013402 


022737 


052S25 


4373 








4374 








4375 








4376 


013410 


001412 




4377 








4378 


013412 


01 2737 


033342 


4379 


013420 


01 2737 


052525 


4380 


013426 


01 3737 


033342 


4381 


013434 


104064 




4382 








4383 








4384 








4385 








4386 








4387 








4388 








4389 









MACY1 1 30A(1052) 21-FEB-78 08:58 PAGE 81 

T32 CHECK 'READ CHECK' FUNCTION - CYLINDER 0, SECTOR 

GO CHECK IF CONTROL RDY IS SET 
IF SO, SKIP THE EROR MESSAGE. 
WAS SET TO ' READ CHECK' 
ERROR 56 ; CNTRL RDY DID NOT SET ON DOING 

READ CHECK' FROM CYL 0, SEC 
BIT #140000,@R1 ;DID 'ERR' OR 'HE' BIT SET? 

BEQ 4$ ;N0, BRANCH 

USR PC.GT3RG ;G0, GET RKCS.ER.DS FOR ERROR MESSAGE 

ERROR 57 ; 'ERR' OR 'HE' BIT SET ON DOING 

READ CHECK' ON CYLINDER 0, SEC 
BIT #2, ©RKER ;DID 'CSE' BIT SET IN RKER? 

BEQ 5$ ;N0, BRANCH 

MOV @RKER,$REG0 ; GET RKER 

ERROR 60 ;SOFT ERROR - CSE - ON DOINT ' READ 

CHECK' ON CYLINDER 0, SECTOR 
U SHOULD HAVE GOT ERRROR 102 ALSO 
DID WORD COUNT OVERFLOW TO 0? 
YES, BRANCH 
GET RKWC 
GET RKCS 

WORD COUNT DID NOT OVERFLOW 
ON DOING ' READ CHK' ON CYL 0. SEC 
RKDA SHOULD INCREMENT 
TO THIS AFTER ' RD CHK' IS DONE 
DID RKDA INCREMENT CORRECTLY? 



SEO 0080 



TST 
BEQ 
MOV 
MOV 
ERROR 

MOV 
INC 
CMP 
BEQ 
MOV 
MOV 
ERROR 



CMP 
BEQ 
MOV 
MOV 
ERROR 



BEQ 

MOV 
MOV 
MOV 
ERROR 



PR2 
6$ 

@R2,$REG0 
@R1 ,$REG1 

61 

DRIVAD.R2 
R2 

R2,-53R3 
7S 

R2,$REG0 
©R3,$REG1 

62 



#0UTBUF,8>R4 
8$ 

#OUTBUF,$REGO 
•R4,$REG1 

63 



#52525, OUTBUF 



TST33 

#OUTBUF,$REG0 

#52525 ,$REG1 
0UTBUF,$REG2 

64 



GET EXPCTD RKDA 
GET RKDA RECVD 

RKDA DID NOT INCREMENT CORRECTLY 
(BY 1 ) ON DOING 'READ CHK' ON 
CYL 0, SEC 
DID RKBA GET CHANGED? 

NO, BRANCH (RKBA WON'T CHANGE, NO NPR'S) 
GET EXPCTD RKBA 
GET RKBA RECVD 

RKBA CHANGED AFTER DOING ' READ CHK 1 
ON CYLINDER 0, SECTOR 0. SHOULD 
NOT CHANGE, FOR, NO NPR'S. 
'OUTBUF' SHOULD STILL CONTAIN THE 
SAME WORD AS IT DID BEFORE 1 RD CHK' 
NOTE THAT AT THE BEGINING OF THIS TEST 
52525 WAS WRITTEN INTO 'OUTBUF' 
;YES, EXIT 

REPORT ERROR IF 'OUTBUF ' CHANGED 

GET ADRES OF OUTBUF 

GET EXPCTD WORD IN ' OUTBUF ' 

GET WORD FOUND IN 'OUTBUF' 

AS MENTIONED ABOVE, IF 'WRITE' OF 

256 WORD DATA BLOCK WAS DONE 

CORRECT LY BEFORE, THEN THIS ERROR 

COULD MEAN THAT AN NPR WAS DONE 

ON ' READ CHECK' . 



********* 
CHECK THE 



WRITE CHECK' FUNCTION - ON CYLINDER 0, 



SECTOR 



;*THIS TEST CHECKS OUT THE BASIC 'WRITE CHECK' LOGIC, USING THE 256 



000004 
104413 
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4390 
4391 
4392 
4393 
4394 
4395 

4396 013436 

4397 013440 
4398 

4399 
4400 
4401 
4402 
4403 
4404 
4405 
440S 

4407 01 3442 

4408 

4409 013444 

4410 013450 

4411 013454 

4412 013460 

4413 013464 

4414 013470 

4415 013472 

4416 013474 

4417 013476 

4418 013504 

4419 013512 

4420 01 3520 
4421 

4422 013524 

4423 013525 

4424 013530 

4425 013532 

4426 013536 
4427 

4428 013540 
4429 

4430 013542 

4431 

4432 

4433 013544 

4434 013550 

4435 013552 
4435 013556 
4437 

4433 013560 

4439 013566 

4440 013570 

4441 013574 
4442 

4443 
4444 
4445 
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T33 CHECK THE 1 WRITE CHECK ' FUNCTION - ON CYLINDER 0, SECTOR 

'WORD DATA BLOCK (SECTOR 0. CYLINDER 0) WRITTEN IN A PREVIOUS 
►TEST. THE BUFFER IN MEMORY, USED FOR COMPARISON OF DATA, IS THE 
*0NE STARTING AT 'OUTBUF ' . HENCE THE TEST WHICH WRITES THE 
(•256 WORD BLOCK ON THE DISK {AS WELL AS CREATING THE 256 
*256 WORD MEMORY BUFFER) SHOULD BE DONE BEFORE THIS TEST. 



SCOPE 
CNT. RESET 



104421 








TST.SIN 




01 3701 


001332 






MOV 


RKCS.R1 


01 2700 


177400 






MOV 


#-400, RO 


01 2702 


033342 






MOV 


#0UTBUF,R2 


01 2703 


177777 






MOV 


#177777, R3 


062703 


177401 




1$: 


ADD 


#177401 , R3 


1 0322 








MOV 


R3, (R2)+ 


005200 








INC 


RO 


001373 








BNE 


1$ 


01 2777 


177400 


165630 




MOV 


#-400 ,@RKWC 


01 2777 


033342 


165624 




MOV 


#0UTBUF ,@RKBA 


01 3777 


001350 


165620 




MOV 


DRIVAD , S>RKDA 


01 271 1 


000007 






MOV 


#7,@R1 


005000 








CLR 


RO 


10571 1 






2$: 


TSTB 


@R1 


100003 








BPL 




004737 


021002 






dSR 


PCGT3RG 


1 04030 








ERROR 


30 


10441 2 






3$: 


CHKCRDY 




104065 








ERROR 


65 


03271 1 


140000 




4$: 


BIT 


#140000, mi 


001403 








BEO 


5$ 


004737 


021 002 






dSR 


PC , GT3RG 


1 04066 








ERROR 


66 


032777 


000001 


165542 


5$: 


BIT 


#1 ,£RKER 


001403 








BEO 


6$ 


004737 


021002 






JSR 


PC , GT3RG 


104067 








ERROR 


67 



;G0, DO CONTROL RESET 
;THIS IS A CALL FOR THE 1 CNTR L" 
; RESET 1 ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE 1 CNTR L RDY ' DOES NOT SET 
; AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
; PC WHERE 'CNT .RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERRS IF IT 
; OCCURS GO BACK TO TEST 10 
; CHECK IF SIN IS SET, IF SET 
;D0 DRIVE RESET TO CLEAR IT 



WRITE CHECK 256 WORDS 

STARTING AT THIS BUS ADRES 

WITH THIS DISK DATA BLOCK (CYL 0, SEC 0) 

WRITE CHECK, GO 

GIVE SOME TIME 

DID CNT R L RDY CLEAR AS GO WAS SET? 

YES BRANCH 

GET RKCS, ER , DS 

CNTR L RDY DID NOT CLEAR AS GO WAS 
SET TO DO WRITE CHECK 
GO CHECK IF CONTROL RDY IS SET 
IF SO. SKIP THE EROR MESSAGE. 
CNTRL RDY DID NOT SET AFTER 
COMPLETING WRITE CHECK ON 
CYLINDER 0. SECTOR 
DID HE OR ERR BIT SET 
NO, BRANCH 

GO GET RKCS ER DS FOR ERROR MESSAGE 
HE OR ERR BIT SET ON DOING WRITE 
CHK ON CYLINDER 0, SEC 
DID WCE SET IN RKER? 
NO, BRANCH 

YES GET RKCS, ER, DS 

WCE ON WRITE CHECK OF CYL 0, SEC C 

NOTE THAT IF A PREVIOUS TEST 

& THEN COMPARED WITH MEMORY BUFFER 

TO SEE IF IT WAS WRITTEN CORRECT WAS 

DONE RIGHT BEFORE, THIS ERROR SHOULD NOT 
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T33 CHECK THE 'WRITE CHECK' FUNCTION - ON CYLINDER 0, SECTOR 



4446 

4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4434 
44B5 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 



01 3576 
013602 
01 3604 
013612 
013516 

01 3620 
01 3624 
01 3626 
01 3632 
01 3634 
01 3640 
013646 

013650 
013656 
013660 
013666 
01 3674 



013676 
013702 
013704 
013712 
013716 



005777 1 65532 

001405 

017737 165524 
011137 001 164 
104061 



01 3704 
0052C4 
020477 
001406 
01 0437 
01 7737 
104070 



013720 000004 
013722 104413 



001350 



001 162 
165474 



022777 034342 165460 8$: 
001407 

01 2737 034342 001 1 62 
01 7737 165444 001 1 64 
104071 



TST 

BEQ 
MOV 
MOV 
ERROR 

MOV 
INC 
CMP 
BEQ 
MOV 
MOV 
ERROR 

CMP 
BEO 
MOV 
MOV 
ERROR 



; HAPPEN UNLESS THERE IS A FAULT IN THE 
; COMPARING LOGIC OF ' WRT CHK' 

§>RKWC ; DID RKWC OVERFLOW? 

7$ ; YES, BRANCH 

(PRKWCSREGG ; NO , GET RKWC 

§>R1 ,$REG1 ; GET RKC: 

61 ;RKWC DID NOT OVERFLOW AFTER 

; WRITE CHECK ON CYL , SEC 
DRIVAD, R4 ; RKDA SHOULD INCREMENT 

R4 ;T0 THIS AFTER WRT CHK 

R4.0RKDA ;DID RKDA INCREMENT CORRECTLY? 

8$ ; YES, BRANCH 

R4.SREG0 ;N0, GET EXPCTD RKDA 

(PRKDA , SREG1 ; GET RKDA RECVD 

70 ; RKDA DID NOT INCREMENT CORRECTLY 

; (BY 1 SECTOR) AFTER WAT CHK ON SEC 0, 
#OUTBUF+1000,®>RKBA ;DID RKBA INCREMENT CORRECTLY? 
9$ ; YES, EXIT 

#0UTBUF+1000,$REG0 ; GET EPCTD RKBA 



02271 1 000206 
001406 

01 2737 000206 
01 1 137 001 164 
104024 



013724 104421 

013726 013701 001332 



PRKBA , $REG1 ; GET RKBA RECVD 

71 ; RKBA DID NOT INCREMENT CORRECTLY 

; (BY 1000 BYTES) AFTER A WRT CHK 
;0F 256 WORDS ON CYL 0, SEC 
9S: CMP #206, @R1 ; DOES RKCS STI LL CONTAIN THE WRT CHK BITS? 

BEO TST34 ; ; YES, BRANCH 

MOV #206,SREG0 ;N0, GET EXPCTD RKCS 

MOV @R1,$REG1 ; GET RKCS RECVD 

ERROR 24 ;RKCS BITS CHANGED AFTER WRT CHK 

; WAS DONE 

;*TEST 34 CHECK THAT IBA INHIBITS INCREMENTING OF RKBA 

*THIS TEST CHECKS THAT THE BUS ADDRESS DOES NOT INCREMENT WHEN 
*THE IBA BIT IS SET. SEQUENCE OF OPERATIONS: 
*1) CLEAR OUT 256 WORD BUFFER IN MEMORY ( OUTBUF ) 
*2) READ FROM SECTOR 0, CYLINDER THE 256 WORD BLOCK THAT WAS 
♦WRITTEN IN A PREVIOUS TEST (NOTE: THAT TEST SHOULD HAVE BEEN 
♦DONE BEFORE THIS) . IBA BIT IS SET DURING READ BACK. 
*3) CHECK THAT RKBA DID NOT INCREMENT 

*4) CHECK THAT THE ENTIRE BLOCK WAS READ INTO THE SAME MEMORY 
♦WORD (OUTBUF) & THE REST OF THE WORDS IN THAT BUFFER ARE C 
♦AS PREVIOUSLY CLEARED OUT . 

SCOPE 

CNT. RESET ; GO , DO CONTROL RESET 

THIS IS A CALL FOR THE 1 CNTRL™ 
RESET ' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE ' CNTRL RDY ' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR& IF IT 
OCCURS GO BACK TO TEST 10 
TST.SIN : CHECK IF SIN IS SET , IF SET 

DO DRIVE RESET TO CLEAR IT 



MOV 



RKCS.R1 
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CHECK THAT IBA INHIBITS INCREMENTING OF RKBA 



SEO 0083 



4502 


01 3732 


01 2700 


1 77400 






MOV 


4503 


013736 


01 2702 


033342 






MOV 


4504 


013742 


01 0203 








MOV 


4505 














4506 


013744 


005023 






1$: 


CLR 


4507 


013746 


005200 








INC 


4508 


01 3750 


001375 








BNE 


4509 


01 3752 


01 2777 


177400 


165354 




MOV 


4510 


01 3760 


01 0277 


165352 






MOV 


451 1 


013764 


01 3777 


001350 


165346 




MOV 


4512 














4513 














4514 


013772 


01 271 1 


004005 






MOV 


4515 














4516 


013776 


005037 


001362 






CLR 


451 7 


014002 


10571 1 






2$: 


TSTB 


4518 


014004 


100412 








BMI 


4519 


014006 


005237 


001362 






INC 


4520 


014012 


00 1 373 








BNE 


4521 


014014 


004737 


020774 






JSR 


4522 


014020 


01 3737 


001350 


001202 




MOV 


4523 


014026 


104416 








BRKDA4 


4524 














4525 


014030 


104045 








ERROR 


4526 














4527 


014032 


004737 


021234 




3$; 


JSR 


4528 














4529 


014036 


104046 








ERROR 


4530 














4531 














4532 














4533 














4534 


014040 


020277 


165272 




4$; 


CMP 


4535 


01 4044 


001406 








BEO 


4536 


01 4046 


01 0237 


001 162 






MOV 


4537 


014052 


01 7737 


165260 


001 164 




MOV 


4538 


014060 


104072 








ERROR 


4539 














4540 


014062 


032777 


001 000 


165236 


5$: 


BIT 


4541 


01 4070 


001042 








BNE 


4542 


014072 


01 2700 


1 77400 






MOV 


4543 


014076 


022712 


000377 






CMP 


4544 














4545 














4546 


0141 02 


00141 1 








BEO 


4547 


0141 04 


01 2737 


000377 


001 162 




MOV 


4548 


014112 


01 1237 


001 164 






MOV 


4549 


014116 


01 3737 


001350 


001166 




MOV 


4550 














4551 














4552 


014124 


1 04044 








ERROR 


4553 














4554 














4555 














4556 


014126 


005722 






6$: 


TST 


4557 


014130 


012705 


177773 






MOV 



#-400, RO 

#0UTBUF,R2 

R2.R3 

(R3) + 

RO 
1$ 

#-400,@RKWC 
R2,@RKBA 
DRI VAD , ©RKDA 



#4005, @R1 

COUNT 

S>R1 

3$ 

COUNT 
2$ 

PC , GT4RG 

DRI VAD , SREG1 



45 

PCCHKHE 



R2,@RKBA 
5$ 

R2,$REG0 

PRKBA , SREG1 
72 

#1000,@RKDS 
TST35 
#-400, RO 
#377, @R2 



6$ 

#377,SREG0 
(R2) ,$REG1 
DRI VAD , $REG2 



(R2) + 

#~5,RS 



;SET UP COUNT FOR 256 WORDS 



'.CLEAR OUT THE 256 

; WORD MEMORY BUFFER STARTING 

; AT 1 OUTBUF 1 

; READ BACK 256 WORDS 

; INTO THIS BUS ADRES (IBA WILL B SET) 
; FROM THIS DSK ADRES (SEC 0, CYL 0) 
; NOTE : SEC HAS BEEN WRITTEN IN A 
; PREVIOUS TEST WITH A UNIQUE PATTEM 
; READ, GO, IBA SET 



;DID CNTRL RDY SET? 

;YES, BRANCH 

; WAITED LONG ENOUGH? 

; IF NOT , LUP BAK & WAIT 

;G0, GET RKCS , ER. DS. DA 

; GET THE STARTING ADRES 

; BREAK CONTENTS OF $REG1 

; INTO DR #, CYL, SUR, SEC 

; CNTRL RDY DID NOT SET AFTER DOING 

; READ 

; CHECK IF 1 ERR 1 OR 'HE' BIT IS SET, 
; IF YES . RETURN HERE. 

; ERR BIT SET ON DOING READ FROM SEC 0, 
;CYL ( INDICATED IN <DSK-ADRES>) 
; 1 RKDA 1 IN EROR MSGE GIVES THE 
; CONTENTS OF RKDA AT THE TIME OF EROR 

;DID RKBA INCREMENT? 
;0K IF NOT, BRANCH 
; GET EXPCTD RKBA 
; GET RKBA RECVD 

; RKBA INCREMNTED WHEN ISA BIT WAS 
; SET, SHOULD NOT HAVE 
; IS SIN SET? 
; : IF YES, EXIT 

; CHECK THAT THE FIRST WORD IN 

; 1 OUTBUF 1 IS 377 (LAST WORD OF SEC 0, 

;CYL 0). NOTE THAT READ WAS DONE 

; INTO THIS SAME WRD WITH IBA SET 

; GET EX; CTD WORD ( LAST WORD OF THE BUFFER 
; GET WORD RECVD ( LAST WRD FROM SEC 0) 
;DISK ADRES WHERE ERROR OCCURED 
; (SEC 0, CYL LAST WORD) 
; DATA ERROR 

; THE FIRST WORD IN MEM BUFFER (OUTBUF) 
SHOULD BE NON-ZERO & SHOULD CONTAIN 

; THE LAST WORD READ BACK FROM SEC 

;CYL O.THIS DID NOT HAPPEN IF THE ERROR OCCURS 

; INCREMENT POINTER TO THE NXT WORD 
ALLOW ONLY 5 MESAGES FOR ERR 116 
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4558 


01 41 34 


005200 


4559 


014136 


001417 


4560 


014140 


005722 


4561 


014142 


001774 


4562 


014144 


005037 


4563 


014150 


01 4237 


4564 


014154 


01 0004 


4565 


0141 56 


062704 


4566 


0141 62 


01 0437 


4567 






4568 


014166 


104073 


4569 






4570 






4571 






4572 






4573 






4574 






4575 






4576 






4577 






4578 






4579 






4580 






4581 






4582 






4583 


014170 


00520S 


4584 


014172 


001401 


4585 


014174 


000757 


4506 






4587 






4588 






4S89 






4590 






4591 






4592 






4593 






4594 






4595 


0141 76 


000004 


4596 


014200 


104413 


4597 






4598 






4599 






4600 






4601 






4602 






4603 






4604 






4605 






4606 


014202 


104421 


4607 






4608 


014204 


01 2746 


4609 


014210 


01 2746 


461 


014214 


000002 


461 1 


014216 




4612 


014216 


01 3701 


4613 


014222 


01 3700 



INC 
BEQ 
TST 
BEO 
CLR 
MOV 
MOV 
ADD 
MOV 



RO 

TST35 
(R2) + 
7$ 

SREG1 

-(R2) ,$REG2 
R0.R4 
#401 ,R4 
R4,$REG0 



INC 

BEQ 
BR 



RS 

TST35 

7$ 



; CHKD ALL 256 WORDS IN THE BUFFER? 

• • yes, EX I T 

; IS THIS WORD 0? 

; YES, LUP BAK & CHK THE NXT WORD? 

; ERROR. GET EXPCTED WORD - 

; GET WORD THAT WAS FOUND IN THE BUFFER 



THIS 'WORD # ' IN MEMORY BUFFER 
SHOULD HAVE BEEN ZERO 
THE 256 WORD BUFER (STARTING AT 
OUTBUF) WAS CLEARED BEFORE READING 
BAK SEC INTO IT. SINCE THE IBA 
BIT WAS SET DURING THE READ, ONLY 
THE FIRST WORD OF (OUTBUF) SHOULD 
HAVE CHANGED, THE REST OF THE WORDS 
SHOULD BE STI LL 0. IF THIS ERROR 
OCCURS, ' WORD # ' (OF THE BUFFER) AS 
INDICATED IN THE EROR MESAGE) GOT 
CHANGED WHEN READ WAS DONE FROM 
THE DISK, INDICATING THAT WITH IBA 
SET X-FER WAS NOT DONE INTO THE 
SAME MEMORY LOCATION. 1 WORD #' 
IS OCTAL & SPECIFIES THE POSITION 
IN THE BUFFER (FIRST WORD IS ' WORD #' 

;EXIT 



;*TEST 35 CHECK THAT RK1 1 INTERRUPTS WHEN IDE IS SET 

*THIS TEST CHECKS IF 8K1 1 INTERRUPTS TO ITS DESIGNATED VECTOR 
; *ADDRESS WHEN IDE BIT IS SET. WITH CONTROL READY SET & GO CLEAR. 
* IT IS NORMALLY 220, UNLESS IT HAS BEEN CHANGED. IF IT HAS BEEN 
^CHANGED RK11 WILL INTERRUPT TO 1 RKVEC 1 . NOTE RKVEC ' HAS 
5 *T0 BE SET UP BY THE USER. 



TST35 % 



SCOPE 
CNT. RESET 



MOV 
MOV 
RTI 

MOV 
MOV 



#340,»(SP) 
#64$, -(SP) 



RKCS, R1 
RKVEC, RO 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL™ 
RESET 1 ROUTINE. A CONTROL RESET I 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY 1 DOES NOT SET 
AN ERROR IS REPORTED . NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR& IF IT 
OCCURS GO BACK TO TEST 1 
CHECK IF SIN IS SET, IF SET 
DO DRIVE RESET TO CLEAR IT 



; GET POINTER TO RK VECTOR ADRES 
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014262 
000340 
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SEO 0085 



461 4 


1 4226 


n 1 o7?n 


4615 


01 4232 




4616 




10571 


4617 


1 4240 




461 8 


1 4242 


012711 


461 9 


1 4246 


1 U ItjiU 


4620 






462 1 


1 4252 


01 1 1 37 


4622 


01 4256 


] u / *4 


4623 






4624 






4625 


1 4260 


UUUhUv 


4626 


014262 


022626 


4 ~oo 






4o28 






4629 


01 4264 


02 /, 626 


4630 






4631 


01 4266 


01 2777 


4632 






4633 


01 4274 




4534 






4635 






4636 


1 4300 


AAA 1 m 
OOU4UJ 


4637 






4638 


1 4302 


022626 


4639 


1 4304 


02 2626 


4640 


1 4306 




4641 






4642 






4643 


01 431 


1 2777 










014316 


01 2746 




1 4322 


1 2746 








4648 


014330 










4650 






4651 






46o2 






4653 






4654 












4656 






4657 






4658 






4659 






4660 


1 4330 


UU UUUH 






?044?3 


4662 


A i AlACi 
U 1 ^O^vV 




4663 






4664 






4665 






4666 






4667 






4668 






4669 







MOV 


#1$, (R0)+ 


MOV 


#340, (R0) 


TSTB 


©>R1 


BPL 


.-2 


MOV 


#100, ©R1 


WAT. INT 


,5 


MOV 


§>R1 ,$REG0 


ERROR 


74 


BR 


1$ 



CMP 



(SP)+, (SP)+ 



CMP (SP)+, (SP)+ 

MOV #2$,@RKVEC 
WAT . INT ,5 



004600 165064 3$: 



BR 

CMP 
CMP 
ERROR 



MOV 
MOV 
RTI 



3$ 

(SP)+, (SP)+ 
(SP)+, (SP)+ 

20 



#BADINT ,@RKVEC 



SET UP INTERRUPT VECTOR FOR RK1 1 

SET PSW ON INTERRUPT 
WAIT FOR CNTRL RDY TO SET 

SET IDE BIT IN RKCS 

WAIT FOk INTERRUPT, ATLEAST 

37 US FOR 1 1/20. 7 US FOR 11/45 

GET RKCS 

RK11 DID NOT INTERRUPT WHEN IDE 
WAS SET, WITH CNTRLE RDY SET & GO 
CLEAR 

RK11 INTERRUPTED CORRECTLY TO 
THIS. RESTORE STACK POINTER 
(FROM RK11 INTERRUPT) 
RESTORE STACK POINTER 
(FROM WAT. INT) 

IF THERE IS FAULTY POLLING OR INTERUPT 

LOGIC SECOND INTERRUPT MIGHT OCCUR 
WAIT FOR INTERRUPT, IF ANY 
DUE TO FAULTY LOGIC 



; RESTORE STACK PTR (FROM RK1 1 INTRUPT) 
; RESTORE STACK PTR ( FROM WAT. INT) 
; AN UNEXPECTED RK1 1 INTERRUPT 
;0CCURED. THERE SHOULD HAVE BEEN 
; ONLY 1 INTERRUPT (TO 1$ ABOVE) 
•.RESTORE VECTOR ADRES FOR 
UNEXPECTED RK1 1 INTERRUPT, 



#340,- 

#65$,- 



(SP) 
(SP) 



000005 001206 



**************************************** 
CHECK THAT WITH IDE SET RK1 1 INTERRUPTS AFTER INTIATION & COMPLETION OF 
THIS TEST CHECKS THAT AN INTERRUPT FROM RK1 1 OCCURS AFTER 
A SEEK IS INITIATED WITH ' IDE' BIT SET. AND THEN A SECOND 
INTERRUPT OCCURS AFTER THE SEEK IS DONE. IT ALSO CHECKS THAT 
AFTER THE FIRST INTERRUPT 'SCP 1 BIT IS NOT SET, WHEREAS AFTER 
THE SECOND INTERRUPT 1 SCP 1 IS SET. 

THIS TEST ALSO CHECKS A PART OF THE POLLING LOGIC. 

***************************************************** 
SCOPE 

;DO 5 ITERATIONS 
GO. DO CONTROL RESET 
THIS IS A CALL FOR THE ' CNTR L - 
RESET ' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 1 CNTRL RDY ' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 



MOV #5,$TIMES 

CNT. RESET 
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T36 CHECK THAT WITH IDE SET RK1 1 INTERRUPTS AFTER INTIATION & COMPLETION OF S 



SEQ 0086 



4670 














; THIS IS A VERY BASIC ERRS IF IT 


4671 














•.OCCURS GO BACK TO TEST 10 


4672 


014342 


; 3700 


001332 






MOV 


RKCS, RO 




4673 


01 4346 


01 3777 


001350 


164764 




MOV 


DRIVAD ,@RKDA 


ADRES THE DRIVE 


4674 


014354 


004737 


021504 






JSR 


PC , DRESET 


GO, DO DRIVE RESET 


4675 


014360 


1 04026 








ERROR 


26 


R/W/S RDY DIDN'T SET AFTER DOING 


4676 
















ABOVE DRIVE RESET 


4677 


014362 


01 3701 


001402 




2$: 


MOV 


RKVEC.R1 




4678 


01 4366 


01 2721 


014432 






MOV 


#3$, (R1 )+ 


SET UP VECTOR ADRES FOR RK1 1 INTERUPT 


4679 


014372 


01 271 1 


000340 






MOV 


#340, (R1 ) 


SET UP PSW ON INTERRUPT 


4680 


014376 


052777 


000040 


164734 




BIS 


#40,@RKDA 


ADRES CYLINDER #1 


4681 


014404 


01 2710 


0001 1 1 






MOV 


#1 1 1 ,§>R0 


SEEK, GO WITH IDE SET 


4682 


014410 


104420 


000300 






WAT. INT 


,300 


WAIT FOR THE DRIVE TO 


4683 
















INTERRUPT AFTER ADRES WAS ^ECVD 


4684 
















WAITING TIME= 1 .4 MS FOR 11/20 


46S5 
















280 US FOR 1 1/45 


4636 
















ERROR. IF INTERUPT DID NOT OCCUR 


4687 
















BY NOW 


4688 


014414 


01 2777 


004600 


164760 




MOV 


#BADINT,@RKVEC 


RESTORE UNEXPECTED RK1 1 INTERRUPT 


4689 


014422 


01 1037 


001 162 






MOV 


@R0,$REG0 


GET RKCS 


4690 


014426 


104075 








ERROR 


75 


INTERRUPT DID NOT OCCUR AFTER 


4691 
















SEEK WAS INITIATED WITH IDE SET 


4692 


014430 


000402 








BR 


3$+4 




4693 


014432 


022626 






3$: 


CMP 


(SP)+,(SP)+ 


OK, IF RK1 1 INTERRUPTED TO THIS 


4694 
















RESTORE STACK POINTER (FROM RK1 1 INTERRUPT) 


4695 


014434 


022626 








CMP 


(SP)+, (SP)+ 


RESTORE STACK POINTER ( FROM 


4696 
















WAT. INT) 


4697 


014436 


01 2777 


014502 


164736 




MOV 


#5$,@RKVEC 


SET UP NEW VECTOR ADRES FOR RK1 1 


4698 


014444 


03271 


020000 






BIT 


#20000 ,@RO 


IS SCP CLEAR 


4699 


014450 


001403 








BEQ 


4$ 


YES. BRANCH 


4700 


014452 


01 1 037 


001 162 






MOV 


@R0,$R£G0 


GET RKCS 


4701 


014455 


104075 








ERROR 


76 


SCP SET BEFORE SEEK TO LAST 


4702 
















CYLINDER WAS DONE 


4703 


014460 


104420 


056700 




4$: 


WAT. INT 


,56700 


WAIT FOR DRIVE TO INTERRUPT 


4704 
















AFTER SEEK WAS COMPLETED 


4705 
















WAITING TIME=180 MS FOR 11/20 


4706 
















36 MS FOR 11/45 


4707 


014464 


01 2777 


004600 


164710 




MOV 


# BAD I NT , ©RKVEC 


IT ' S AN ERROR IF BY THIS TIME 


4708 
















INTERRUPT HAS NOT OCCURERED 


4709 


014472 


004737 


021002 






•JSR 


PC.GT3RG 


;GO GET RKCS. ER , DS 


471 


014476 


104077 








ERROR 


77 


RK1 1 DID NOT INTERRUPT AFTER SEEK (TO 


471 1 














: LAST CYLINDER) WAS DONE WITH IDE SET 


4712 


014500 


000401 








BR 


5S+2 




4713 


014502 


02 '626 






5$: 


CMP 


(SP)+, (SP) + 


OK, IF RK11 INTERUPTED TO THIS AFTER 


4714 
















SEEK WAS COMPLETED. RESTORE 


4715 
















STACK POINTER (FROM RK1 1 INTERRUPT) 


4716 


014504 


022626 








CMP 


(SP)+, (SP)+ 


RESTORE STACK POINTER ( FROM 


471 7 
















WAT. INT ) 


4718 


014506 


01 2777 


004600 


164666 




MOV 


# BAD I NT ,$RKVEC 


RESTORE RK11 INTERRUPT VECTOR ADRES 


4719 
















FOR UNEXPECTED INTERUTS 


4720 


014514 


03271 


020000 






BIT 


#20000, @R0 


DID SCP BIT SET? 


4721 


01 4520 


001003 








BNE 


6S 


YES, BRANCH 


4722 


014522 


01 1 037 


001 162 






MOV 


@R0,$REG0 


GET RKCS 


4723 


014526 


104053 








ERROR 


53 


SCP DID NOT SET AFTER RK1 1 INTERRUPTED 


4724 
















INDICATING SEEK WAS DONE 


4725 


014530 


01 7701 


164572 




6$: 


MOV 


©RKDS.R1 


GET RKDS 
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?RKKF 


P1 1 21 


-FEB-78 


08:51 


4726 


014534 


042701 


017777 


4727 


014540 


020137 


001350 


4723 


014544 


001414 




4729 








4730 


014546 


01 3745 


001350 


4731 


014552 


004737 


021200 


4732 


014556 


01 2637 


001 162 


4733 


014562 


01 0146 




4734 


014564 


004737 


021200 


4735 


014570 


01 2637 


001164 


4736 


014574 


104047 




4737 








4738 








4739 








4740 








4741 








4742 








4743 


014576 






4744 


014576 


01 2746 


000340 


4745 


014602 


012746 


014610 


4746 


014606 


000002 




4747 


014610 






4748 


014610 


104413 




4749 


014612 


013777 


001350 


4750 


014620 


032777 


160000 


4751 


014626 


001404 




4752 


014630 


01 7737 


164472 


4753 


014636 


104050 




4754 








4755 








4756 








4757 


014640 


02271 


000200 


4758 


014644 


001403 




4759 


014646 


01 1037 


001 162 


4760 


014652 


104100 




4761 








4752 








4763 








4764 








4765 








4766 








4767 








4768 


014654 


000004 




4769 


014656 


104413 




4770 








4771 








4772 








4773 








4774 








4775 








4776 








4777 








4778 








4779 


014660 


104421 




4780 








4781 
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T36 CHECK THAT WITH IDE SET RK1 1 INTERRUPTS AFTER INT I ATION & COMPLETION OF S SEQ 0087 



64$: 



BIC 
CMP 
BEQ 

MOV 
USR 
MOV 
MOV 
USR 
MOV 
ERROR 



MOV 
MOV 

RTI 



MOV 
BIT 
BEQ 
MOV 
ERROR 



CMP 
BEQ 
MOV 
ERROR 



017777, R1 
R1 , DRIVAD 
7$ 

DRIVAD.-(SP) 
PC , SHFTRT 
(SP)+,$REG0 
R1 ,-(SP) 
PC, SHFTRT 
(SP)+,$REG1 
47 



#340,- 

#64$,- 



(SP) 
(SP) 



DRIVAD.PRKDA 
#160000, ©RKDS 
8$ 

@RKDS,$REGO 
50 



#200, mo 

TST37 

@R0,$REG0 

100 



; MASK NON-ID BITS IN RKDS 
; CORRECT ID BITS IN RKDS? 
; YES, BRANCH 

J PUSH DRV ADRES ON THE STACK 

;GO, SHIFT RIGHT DRV # 

; GET EXPCTD DRV # 

; PUSH ID BITS ON THE STACK 

;GO SHIFT THEM RIGHT 

;POP THE RECVD ID BITS 

; WRONG ID BITS WERE RECVD IN 

; RKDS AFTER SEEK WAS DONE ( INTRUPT 

; MODE ) . ' EXPCT 1 INDICATES THE DRIVE 

;# THAT SHOULD HAVE BEEN IN THE 

; ID BITS, ' RECVD' INDICATES THE 

; DRIVE # THAT WAS RECVD IN THE ID BITS 



;GO DO CONTROL RESET 
; ADRES THE DRIVE 

;DID CNTRL RESET CLEAR DRIVE ID BITS? 
; YES, BRANCH 
; GET RKDS 

; CONTROL RESET DIDN'T CLEAR THE 

;DRIVE ID BITS (13-15) IN RKDS 

J WAS SCP BIT CLEARED BY CNTRL RESET? 
; ; YES. EXIT 
; GET RKCS 

; CNTRL RESET DID NOT CLEAR SCP BIT 



•TEST 



37 CHECK THAT WITH IDE SET RK1 1 INTERRUPTS WHEN READ IS DONE 

;*THIS TEST CHECKS THAT WHEN A DATA TRANSFER FUNCTION IS DONE 
;*WITH IDE BIT SET , RK1 1 INTERRUPTS WHEN THE FUNCTION IS COMPLETED 
;*FUNCTION USED IN THIS TEST IS READ. 

********************************************************** 
SCOPE 

CNT. RESET ;GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE 'CNTRL- 
; RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE 'CNTRL RDY 1 DOES NOT SET 
; AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
; PC WHERE 'CNT. RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERRS IF IT 
; OCCURS GO BACK TO TEST 10 

TST.SIN ; CHECK IF SIN IS SET, IF SET 

;DO DRIVE RESET TO CLEAR IT 
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CZRKKF.P11 ' 21 


-FEB-78 


*©8;§1 




T37 


CHICK THAT WITH IDE SET 


RK11 INTERRUPTS WHEN READ IS DQNI 


4782 


014662 


01 3700 


001332 






MOV 


RKCS.RO 




4783 


014666 


01 3702 


001340 






MOV 


RKDA.R2 




4784 


014672 


01 3704 


001336 






MOV 


RKBA.R4 




4785 


014676 


01 3701 


001350 






MOV 


DRIVAD.R1 




4786 


014702 


052701 


000013 






BIS 


#13, R1 


;SET BITS FOR SEC 13 


4737 


014706 


01 2777 


177600 


164420 




MOV 


#-200,@RKWC 


; READ 200 (OCTAL WORDS) 


4788 


014714 


010112 








MOV 


R1 ,PR2 


; FROM THIS DISK ADRES (CYL 0, SEC 13) 


4789 


014716 


01 2714 


033342 






MOV 


#0UTBUF,@R4 


; INTO THIS BUS ADRES 


4790 


014722 


01 3705 


001402 






MOV 


RKVECR5 




4791 


014726 


01 2725 


014764 






MOV 


#1$, (R5)+ 


;SET UP VECTOR ADRES FOR RK1 1 TO INTRUPT 


4792 


014732 


012715 


000340 






MOV 


#340, (R5) 


; SET PSW ON INTERUPT 


4793 


014736 


01 271 


000105 






MOV 


#105, @R0 


; READ, GO, IDE SET 


4794 


014742 


104420 


127710 






WAT. INT 


,127710 


;WAIT FOR RK1 1 TO INTERRUPT ON 


4795 
















{COMPLETION OF READ 


4796 
















; WAITING TIME* 337 MS FOR 11/20 


4797 
















;67 MS FOR 11/45 


4798 


014746 


012777 


004600 


164426 




MOV 


#BADINT,$RKVEC 


; RESTORE UNEXPCTED INTERRUPT VECTOR ADRES 


4799 


014754 


01 1037 


001 162 






MOV 


@RO,$REGO 


; GET RKCS 


4600 


014760 


104101 








ERROR 


101 


;RK11 DID NOT INTERRUPT AFTER READ 


4801 
















;WAS DONE, IDE BIT SET. 


4802 


014762 


000404 








BR 


1$+10 




4803 


014764 


022626 






1$: 


CMP 


(SP)+,(SP)+ 


;OK, IF RK1 1 INTERRUPTED TO THIS 


4804 
















; RESTORE STACK POINTER (FROM RK1 1 INTERRUPT 


4805 


014766 


022626 








CMP 


(SP)+, (SP)+ 


; RESTORE STACK POINTER (FROM WAT. INT) 


4806 


014770 


01 2777 


004600 


164404 




MOV 


# BAD I NT ,$RKVEC 


; RESTORE UNEXPECTED RK11 INTERRUPT 


4807 
















; VECTOR ADRES 


4808 


014776 


004737 


021342 






USR 


PC, CHKER 


; CHECK IF ANY BIT IN RKER IS SET, 


4809 
















; IF YES, RETURN HERE. 


4810 


015002 


104036 








ERROR 


36 


; RKER SET ON DOING READ FROM SEC 0, 


481 1 
















; CYL 13 IN INTERRUPT MODE 


4812 


015004 


062701 


000005 




4$: 


ADD 


#5,R1 


; RKDA SHOULD HAVE INCREMENTED TO THIS 


4813 


015010 


0201 12 








CMP 


R1 ,$R2 


;DID RKDA INCREMENT CORRECTLY? 


4814 


015012 


001405 








BEQ 


2$ 


; YES BRANCH 


4815 


015014 


01 0137 


001 162 






MOV 


R1 ,$REG0 


; GET EXPCTD RTDA 


4816 


015020 


01 1237 


001 164 






MOV 


@R2,$REG1 


; GET RKDA RECVD 


4817 


015024 


104040 








ERROR 


40 


; RKDA INCREMENTED WRONG ON DOING 


4818 
















;A READ ON CYL 0, SEC 13 


4819 


015026 


004737 


021316 




2$: 


USR 


PCCHKWC 


; CHECK THAT RKWC OVERFLOWED TO 0, 


4820 
















; IF NOT RETURN HERE. 


4821 


015032 


104041 








ERROR 


41 


;RKWC DIDN'T OURFLO AFTER 


4822 
















; A READ OF 200 WORDS 


4823 


















4824 


015034 








3$: 








4825 


015034 


01 2746 


000340 






MOV 


#340, -(SP) 




4826 


015040 


01 2746 


015046 






MOV 


#64$, -(SP) 




4827 


015044 


000002 








RTI 






4828 


015046 








64$*. 








4829 


015046 


022714 


033742 






CMP 


#OUTBUF+400,@R4 


;DID RKBA INCREMENT CORRECTLY? 


4830 


015052 


001406 








BEQ 


TST40 


; ; YES, EXIT 


4831 


015054 


01 2737 


033742 


001162 




MOV 


#0UTBUF+400,$REG0 ; GET EXPCT RKBA 


4832 


015062 


01 1437 


001164 






MOV 


§>R4,$REG1 


; GET RKBA RECVD 


4833 


015066 


104042 








ERROR 


42 


; RKBA DID NOT INCREMENT CORRECTLY 


4834 
















; AFTER A READ OF 200 WORDS 


4835 


















4836 










« $##*##&*®*»#**#**sfc$****** 


4837 










?*TEST 


40 


CHECK THAT RK1 1 


INTERRUPTS AT BR5 ONLY 



SIO 0088 



SEQ 0089 



4838 








4839 








4840 








4841 








4842 








4843 








4844 








4845 








4846 


015070 


000004 




4847 


015072 


104413 




4848 








4849 








4850 








4851 








4852 








4853 








4854 








4855 








4856 








4857 


015074 


104421 




4858 








4859 


015076 


01 2737 


015132 


4860 








4861 


01 51 04 


01 3700 


00 1 332 


4862 


015110 


01 3777 


001 350 


4863 


0151 16 


01 2701 


000007 


4864 


0151 22 


01 2702 


000340 


4865 


0151 26 


01 3703 


001 400 


4866 








4867 








4868 








4669 


01 51 32 


01 3704 


001402 


4870 


0151 36 


01 2724 


01 5244 


4871 


015142 


01 271 4 


000340 


4872 


01 51 46 


01 0246 




4873 


015150 


01 2746 


01 51 56 


4874 


015154 


000002 




4875 


015156 






4876 


015156 


01 271 C 


0001 00 


4877 


0151 62 


01 2705 


1 77760 


4878 


015166 


005205 




4879 


0151 70 


001376 




4880 


0151 72 


020203 




4881 


0151 74 


003005 




4882 








4883 








4884 


0151 76 


01 01 37 


001 1 62 


4885 


01 5202 


01 1 037 


001 1 64 


4886 


01 5206 


1 041 03 




4887 








4888 








4839 


015210 


005010 




4890 


015212 


062702 


177740 


4891 








4892 


015216 


005301 




4893 


015220 


001344 





; *THI5 TEST CHECKS THAT RK1 1 CAN ITERRUPT AT BR5 ONLY. IF IT 

;*INTERRUPTS AT A LEVEL HIGHER THAN ER5 AN ERROR IS INDICATED. 

;*IF IT DOES NOT INTERRUPT AT BR5 OR LOWER THEN ALSO AN 

; * ERROR IS INDICATED. IF FOR SOME REASON THE INTERRUPT 

; * LEVEL IS CHANGED FROM BR5, THEN CONTENTS OF RKPRI WILL 

; *HAVE TO BE CHANGED ACCORDINGLY AND STILL TEXT WILL 

;*CHECK FOR THIS BR LEVEL. 

SCOPE 

CNT. RESET ; GO , DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 
RESET ' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY ' DOES NO" SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERRS IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF SIN IS SET, IF SET 
DO DRIVE RESET TO CLEAR IT 
SET RETURN ADRES FOR LUPING 
ON ERROR (SW 9) 



TST.SIN 

MOV #1$,$LPvRR 





RKCS.RO 




MOV 


DRIVAD,0RKDA 






#7,R1 ; PRIORITY LEVEL 7 


MOV 


#340, R2 


BR LEVEL 7 FOR PSW 


MOV 


RKPRI, R3 ; NOTE , IF RK1 1 INTERRUPT LEVEL IS 




; CHANGED FROM 5 TO ANY OTHER LEVEL 






THEN CHANGE CONTENTS OF 1 RKPRI ' 






ACCORDINGLY 


MOV 


RKVEC , R4 




MOV 


#3$, (R4)+ 


SET UP ADRES FOR RK1 1 TO INTERUPT 


MOV 


#340, (R4) ;SET UP PSW ON INTERUPT 


MOV 


R2,-(SP) 


;SET PROCESSOR PRIORITY LEVEL 


MOV 


#4S,-(SP) 




RTI 










INDICATED BY R2 


MOV 


#100, mo 


SET THE IDE BIT 


MOV 


#-20, R5 


WAIT FOR THE RK1 1 INTERRUPT 


INC 


R5 


WAITING TIME=78 US FOR 11/20 


BNE 


.-2 


13 US FOR 11/45 


CMP 


R2.R3 


WAS THE CPU PRIORITY LEVEL LESS THAN 


BGT 


2$ 


THE RK1 1 LEVEL? IF YES, RK1 1 






SHOULD HAVE INTERRUPTED. ERROR, 






IF IT D-D NOT 


MOV 


R1 ,$REG0 


GET CPU BR LEVEL 


MOV 


@R0,$REG1 


GET RKCS 


ERROR 


103 


THOUGH CPU LEVEL WAS LESS THAN 






THE RK1 1 LEVEL (5) , RK1 1 DID NOT 






INTERRUPT 


CLR 


(PRO 


CLEAR RKCS 


ADD 


#-40, R2 


DECREASE THE PRIORITY LEVEL (FOR 






CPU) BY 1 


DEC 


R1 


CPU WILL B AT THIS LEVEL 


BNE 


1$ 


LUP BAK & CHK FOR THIS BR LEVEL. 



MD-1 1-CZRKKF, RK11 BASIC LOGIC TEST 2 
CZRKKF . P1 1 21-FEB-78 08:51 
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T40 CHECK THAT RK1 1 INTERRUPTS AT BR5 ONLY 



SEQ 0090 



4894 








4895 


015222 


01 2777 


004600 


4896 








4897 


01 5230 


01 2746 


000340 


4898 


01 5234 


01 2746 


015242 


4899 


015240 


000002 




4900 


015242 






4901 


015242 


000414 




4902 








4903 


015244 


022626 




4904 


015246 


01 2777 


004600 


4905 








4906 


015254 


020203 




4907 


015256 


003754 




4908 








4909 








4910 


015260 


01 0137 


001 162 


491 1 


015264 


01 1037 


001164 


4912 


015270 


104104 




4913 








4914 








4915 








4916 


015272 


000746 




4917 








4918 








4919 








4920 








4921 








4922 








4923 








4924 








4925 








4926 


015274 


000004 




4927 


015276 


104413 




4928 








4929 








4930 








4931 








4932 








4933 








4934 








4935 








4935 








4937 


015300 


104421 




4938 








4939 


01 5302 


01 3701 


001350 


4940 


015306 


052701 


014533 


4941 








4942 


015312 


01 2777 


177377 


4943 


015320 


01 2777 


033342 


4944 


015326 


01 0177 


164006 


4945 








4946 


015332 


012777 


000005 


4947 








4948 


015340 


005002 




4949 


015342 


105777 


163764 



MOV 
MOV 
RTI 



CMP 
MOV 



CMP 

BLE 



MOV 
MOV 
ERROR 



BR 



#BADINT . 9RKVEC 



#340, -(SP) 
#64$, -(SP) 



(SP)+,(SP)+ 

# BAD I NT , PRKVEC 



R2.R3 

2$ 



R1 ,$REG0 

PRO,$REG1 
104 



2$ 



; DONE WITH CHK I NG FOR ALL LEVELS. 
; RESTORE UNEXPECTED RK1 1 INTERRUPT 

; VECTOR 



; ; EXIT, TO NXT TST 

; RESTORE STACK POINTER 

; RESTORE UNEXPECTED RK1 1 INTERRUPT 

; VECTOR 

; IF THIS INTERRUPT OCCURED WHEN 

;CPU LEVEL WAS LESS THAN THE 

;RK1 1 PRIORITY LEVEL (5) THEN IT IS 

;OK. IF NOT SO, ERROR 

; GET CPU BR LEVEL 

; GET RKCS 

; RK1 1 INTERRUPTED WHEN THE CPU 
; LEVEL (AS POINTED BY R1 ) WAS 
; HIGHER OR SAME AS THE RK1 1 
; LEVEL (5) 

;GO BACK & CHK THE NXT LEVEL 



164014 

164010 



******** 

41 SIMULATE & CHECK 1 OVR 1 E-ROR 

;*THIS TEST SIMULATES OVERRUN ERROR AND CHECKS IF THE OVR 
;*BIT IN RKER GETS SET. THEN IT IS CLEARED USING CNTRL RESET 
;*& CHECKED THAT IT WAS CLEARED. OVR CONDITION IS SIMULATED 
; * BY TRYING TO READ 401 (OCTAL) WORDS FROM LAST CY LINDER (312), 
;*LAST SECTOR (13), SURFACE 1. 

SCOPE 

CNT. RESET ; GO , DO CONTROL RESET 

;THIS IS A CALL FOR THE 'CNTRL- 
; RESET 1 ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE 1 CNTRL RDY' DOES NOT SET 
; AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
; PC WHERE 'CNT. RESET' IS LOCATED. 
; THIS IS A VERY BASIC ERRS IF IT 
; OCCURS GO BACK TO TEST 10 
TST.SIN ; CHECK IF SIN IS SET, IF 

;SET. DO DRIVE RESET TO CLR IT 
; GET ADRES OF DRIVE 

; SET BITS FOR LAST CYLINDER (312) . 
;SUR 1 . LAST SECTOR (13) 
; READ 401 WORDS 
; INTO THIS MEMORY BUFFER 
; FROM THIS DSK ADRES, LAST CYL, 
; LAST SEC, SURFACE 1 
; READ , GO 



MOV 

BIS 

MOV 
MOV 
MOV 



DRIVAD.R1 
#14533, R1 

#-401 ,@RKWC 
#OUTBUF,@RKBA 
R1 ,@RKDA 



CLR 
TSTB 



R2 

©RKCS 



J DID CNTRL RDY SET? 



MD-1 1-CZRKKF, RK1 1 BASIC LOGIC TEST 2 



IRKKF 


P1 1 21 


-FEB--78 


08:51 


4950 


015346 


10041 




4951 


015350 


005202 




4952 


015352 


001373 




4953 








4954 








4955 


015354 


01 7737 


1 63754 


4956 


015362 


004737 


021 01 


4957 


015366 


104002 




4958 








4059 








4960 








4961 


015370 


032777 


040000 


4962 


015376 


001006 




4963 


015400 


004737 


021010 


4964 


015404 


01 2737 


040000 


4965 


015412 


104105 




4966 








4967 


015414 


022777 


140204 


4968 


015422 


001403 




4969 


015424 


004737 


021 010 


4970 


015430 


104106 




4971 








4972 








4973 


015432 


104413 




4974 








4975 








4976 








4977 








497B 








4979 








4980 








4981 








4982 








4983 


015434 


004737 


021356 


4984 








4985 


015440 


104102 




4986 








4987 


015442 


004737 


021402 


4988 








4989 


015446 


104102 




4990 








4991 


015450 


004737 


021504 


4S92 


015454 


104026 




4S93 








4994 








4995 








4996 








4997 








4998 








4999 








5000 








5001 








5002 








5003 


015455 


000004 




5004 


015460 


104413 




5005 
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T41 SIMULATE & CHECK 1 OVR 1 ERROR 



BMI 

INC 
BNE 



MOV 
JSR 
ERROR 



BIT 
BNE 
JSR 
MOV 
ERROR 

CMP 
BEQ 
JSR 
ERROR 



2S 
R2 
1$ 



@RKWC,$REG2 
PC , GT2RG 

2 



#40000, ©RKER 

3$ 

PC , GT2RG 

#40000, $REG2 
105 

#140204, 8»RKCS 

4$ 

PCGT2RG 
106 



YES , BRANCH 

NO, WAIT FOR IT 

IF WAITED LONG. REPORT ERROR MESSAGE BECAUSE 
OVR SHOULD HAVE SET HE CAUSING 
CNTRL RDY TO SET BY NOW 

GO, GET RKCS, ER 

CNTRL RDY DID NOT SET AFTER DOING 
AN OVR READ. HE SHOULD HAVE OCCURED 
SETTING CNTRL RDY (HE BECAUSE OF 
OVR CONDITIONS) 
DID OVR BIT SET IN RKER? 

GET RKCS, ER 

THIS BIT (OVR) DID NOT SET. 

OVR ERROR BIT DID NOT SET IN RKER 

ON SIMULATING OVR CONDITIONS 

DID HE & ERR SET WHEN OVR SET IN RKER? 

YES, BRANCH 

GET RKCS, ER 

HE OR ERR BIT DID NOT SET IN RKCS WHEN 
AN OVR ERROR WAS SIMULATED 
CLEAR OVER. ERR, HE BITS 
GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 1 CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 1 CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
TH C . PC IN ERROR MESSAGE IS THE 
PC '.'.HERE 'CNT. RESET ' IS LOCATED. 
THIS IS A VERY BASIC ERRS IF IT 
OCCURS GO BACK TO TEST 10 



JSR 


PC.CHKECLR 


CHECK IF 'OVR' BIT WAS CLEARED BY 
CON. RESET, IF NOT RETURN HERE. 


ERROR 


102 


CNTRL RESET DID NOT CLEAR OVR 
BIT IN RKER 


JSR 


PC.CHKCCLR 


CHECK IF 1 ERR 1 S 'HE' BIT GOT CLEARED 
CON. RESET. IF NOT RETURN HERE. 


ERROR 


102 


CNTRL RESET DID NOT CLEAR 
HE OR ERR BIT IN RKCS. 


JSR 


PC , DRESET 


GO DO DRIVE RESET 


ERROR 


26 


R/W/S RDY DIDN'T SET 



AFTER THE ABOVE DRIVE RESET 

;*TEST 42 SIMULATE S CHECK PGE ERROR 

;*THIS TEST SIMULATES 1 PROGRAMMING ERROR 1 S CHECKS IF IT IS 
; ^DETECTED BY PGE BIT IN RKER. THEN A CNTRL RESET IS DONE & 
;*IT IS CHECKED IF PGE BIT WAS CLEARED. IT IS ALSO CHECKED IF 
; *THE SETTING & CLEARING OF PGE BIT SETS S CLEARS HE, ERR 
;*BITS IN RKCS. 

TST42: SCOPE 

CNT. RESET ; GO , DO CONTROL RESET 

;THIS IS A CALL FOR THE ' CNTRL" 



MD-1 1-CZRKKF, 

CZRKKF.P1 1 



RK11 BASIC LOGIC TEST 2 
21-FEB-7S 08:51 
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T42 SIMULATE & CHECK PGE ERROR 



SEQ 0092 



5006 






5007 






5008 






5009 






5010 






501 1 






5012 






5013 






5014 


015462 


104421 


5015 






5016 


015464 


01 3701 


5017 


015470 


01 3777 


5018 






5019 


015476 


01 2777 


5020 






5021 


015504 


104414 


5022 






5023 






5024 






5025 






5026 






5027 


015506 


03271 1 


5028 


015512 


001006 


5029 


015514 


01 2737 


5030 


015522 


004737 


5031 


015526 


104105 


5032 






5033 






5034 






5035 


015530 


022777 


5036 


015536 


001403 


5037 


015540 


004737 


5038 


015544 


104106 


5039 






5040 






5041 


015548 


104413 


5042 






5043 






5044 






5045 






5046 






5047 






5048 






5049 






5050 






5051 


015550 


004737 


5052 






5053 


015554 


1041 02 


5054 






5055 


015556 


004737 


5056 






5057 


015562 


104102 


5058 






5059 






5060 






5061 







001330 
001350 



163641 
163626 



MOV 
MOV 



RKER , R1 
DRIVAD, @RK0A 



MOV #2011,@RKCS 
CNT. RDY 



004000 
021010 



142210 
021010 



BIT 
BNE 
MOV 
JSR 
ERROR 



#4000, *K1 
1$ 

#4000,$REG2 

PCGT2RG 

105 



CMP #142210, WKCS 

BEQ 2$ 

JSR PC.GT2RG 

ERROR 106 



JSR PC , CHKECLR 

ERROR 102 

JSR PCCHKCCLR 

ERROR 102 



RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY 1 DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET 1 IS LOCATED. 
THIS IS A VERY BASIC ERRS IF IT 
OCCURS GO BACK TO TEST. 10 
GO CHECK IF SIN IS SET. IF 
SET DO DRIVE RESET TO CLR IT 

ADRES THE DRIVE, CYLINDER 

SEEK, GO WITH FMT SET 
THIS IS A PGE SIMULATION 
THIS IS A CALL FOR 1 CN . RDY 1 
ROUTINE WHICH WAITS FOR CNT 
RDY TO SET. IF CNTRL RDY DOES 
NOT SET WITHIN 883 MS/ 1 1-20 
(176 MS FOR 1 1-45 WITH BIPOLAR) 
AN ERROR IS REPORTED 
DID PGE BIT IN RKER SET? 
YES, BRANCH 

THIS BIT IN RKER ( PGE) DID NOT SET 

GO GET RKCS, ER FOR MESAGE 

PGE BIT DID NOT SET IN RKER 

ON SIMULATION OF PGE CONDITION 

SREG2 CONTAINS THE RKER BIT ( PGE) 

THAT SHOULD HAVE SET. 

DID HE & ERR BITS SET? 

YES, BRANCH 

GO, GET RKCS, ER 

HE OR ERR BIT DID NOT SET WHEN 

PGE SET IN RKER. 

CLEAR PGE. HE, ERR BITS 

GO. DO CONTROL RESET 

THIS IS A CALL FOR THE ' CNTRL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 1 CNTRL RDY 1 DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERRS IF IT 

OCCURS GO BACK TO TEST 1 

CHECK IV ' PGE' BIT GOT CLEARED BY 

CONTROL RESET, IF NOT RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

PGE BIT IN RKER 

CHECK IF 'ERR' BITGOT CLEARED BY 
CON. RESET. IF NOT RETURN HERE. 
RKCS BITS HE OR ERR DID NOT 
GET CLEARED BY CNTRL RESET 



;*T£ST 43 SIMULATE & CHECK NXM ERROR 



* * * * * * # 
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5062 








5063 








5064 








5065 








5066 








5067 








5068 








5069 


015564 


000004 




5070 


015566 


104413 




5071 








5072 








5073 








5074 








5075 








5076 








5077 








5078 








5079 








5080 


015570 


104421 




5081 








5082 


015572 


005002 




5083 


015574 


01 3700 


001332 


5084 


015600 


01 2777 


177777 


5085 


015606 


01 2777 


160000 


5086 


015514 


01 3777 


001350 


5087 


015622 


01 2710 


000067 


5088 


015626 


105777 


163500 


5089 


015632 


100410 




5090 


015534 


005202 




5091 


015636 


001373 




5092 


015640 


004737 


021010 


5093 


015644 


01 7737 


163464 


5094 


015652 


104113 




5095 








5096 








5097 








5098 


015654 


032777 


002000 


5099 


015662 


001006 




5100 


015664 


004737 


021010 


5101 


015670 


01 2737 


002000 


5102 


015676 


104105 




5103 








5104 


015700 


022710 


140266 


5105 


015704 


001403 




51 06 


015706 


004737 


021010 


5107 


015712 


104106 




5108 








5109 








51 10 


015714 


104413 




51 1 1 








5112 








51 13 








5114 








5115 








51 16 








5117 
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►THIS TEST SIMULATES A NON-EXISTENT MEMORY ERROR (NXM) AND 
'CHECKS IF IT "3 DETECTED BY NXM BIT OR RKER . LOCAT ION 760000 
>IS REFERENCED S IT HAPPENS TO BE A NON EXISTENT LOCATION 
f(FOR DIAGNOSTIC PURPOSES LIKE THIS) . IT IS ALSO CHECKED 
► IF HE S ERR BITS ALSO SET AND ALL 3 BITS CAN BE CLEARED 
* BY CONTROL RESET. 

SCOPE 

CNT. RESET ; GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE ' CNTRL- 
; RESET 1 ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE ' CNTRL RDY ' DOES NOT SET 
; AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
; PC WHERE 'CNT. RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERRS IF IT 
; OCCURS GO BACK TO TEST 1 
TST.SIN ;G0 CHECK IF SIN IS SET 

;IF SET DO DRIVE RESET TO CLR IT 



SEO 0093 



163526 
163522 

163516 



163446 2$: 



CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

TSTB 

BMI 

INC 

BNE 

JSR 

MOV 

ERROR 



BIT 
BNE 
JSR 
MOV 
ERROR 

CMP 
BEQ 
JSR 
ERROR 



R2 

RKCS.RO 
#-1 ,@RKWC 

#1 60000 ,@RKBA 

DRI VAD , @RKDA 

#67,@R0 

@RKCS 

2$ 

R2 

1$ 

PC , GT2RG 

eRKWC,$REG2 

113 



#2000,@RKER 
3$ 

PC , GT2RG 
#2000,$REG2 

105 

#140266, mO 
4$ 

PC , GT2RG 
106 



WRITE CHECK 1 WORD 
AT THIS BUS ADRES 

WITH THIS DISK ADRES (CYL 0. SEC 0) 

WRT CHK. GO, MEX BITS SET 

DID CNTRL RDY SET AS A RESULT OF HE? 

YES, BRA'.-H 

WAITED Ll.NG ENOUGH? 

IF NOT LUP BAK S WAIT 

GET RKCS, ER 

GET RKWC 

CNTRL RDY DID NOT SET ON DOING 

A WRT CHK WITH A NXM LOCATION. 

THIS HE SHOULD HAVE SET THE 

CNTRL RDY BIT IN RKCS 

DID NXM BIT IN RKER SET? 

YES, BRANCH 

GO GET RKCS, RKER 

THIS BIT (NXM) DID NOT SET IN RKER 
NXM BIT DID NOT SET IN RKER ON 
SIMULATING NXM CONDITION. 
DID HE & ERR BIT SET? 
YES. BRANCH 

;G0. GET RKCS. RKER 
HE OR ERR BIT DID NOT SET WHEN 
NXM ERROR WAS SIMULATED 
CLEAR NXM. HE, ERR BITS 
GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 1 CNTAL- 
RESET 1 ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE ' CNTRL RDY* DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET 1 IS LOCATED. 
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51 18 

51 19 
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5120 


015716 


004737 


021356 




JSR 


PC , CHKECLR 


5121 














5122 


015722 


1041 02 






ERROR 


102 


5123 














5124 


015724 


004737 


021402 


5$: 


JSR 


PC.CHKCCLR 


5125 














5126 


015730 


1 041 02 






ERROR 


102 


5127 














5128 


015732 


004737 


021436 


6$: 


JSR 


PCTSTRWS 


5129 














5130 


015736 


104016 






ERROR 


16 



5131 
5132 
5133 
5134 
5135 
5136 
5137 
5138 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 



;THIS IS A VERY BASIC ERRS IF IT 

; OCCURS GO BACK TO TEST 1 

; CHECK IF 1 NXM 1 BIT GOT C ; LEARED BY 

; CON. RESET, I F NOT RETURN HERE. 

; CNTRL RESET DID NOT CLEAR 

;NXM BIT IN RKER 

; CHECK IF ' HE ' & 'ERR' BITS GOT CLEARED 

; BY CON. RESET , IF NOT RETURN HERE. 

; CNTRL RESET DID NOT CLEAR 

; HE OR ERR BIT IN RKCS. 

;GO CHECK IF R/W/S RDY IS SET & 

;WAIT FOR IT. SKIP ERROR IF IT IS SET 

; R/W/S RDY IS NOT SET 



44 SIMULATE S CHECK NXD ERROR 

;*THIS TEST SIMULATES NON-EXISTENT DISK ERROR & CHECKS IF 
;*IT IS DETECTED BY NXD BIT OF RKER. IF ALL EIGHT ARE PRESENT 
; *THEN THIS TEST IS ABORTED FOR SIMULATION CANNOT BE DONE. 

********** 



015740 000004 
015742 104413 



SCOPE 
CNT. RESET 



5149 


015744 


104421 




TST.SIN 




5150 












5151 


015746 


01 3700 


001332 


MOV 


RKCS.RO 


5152 


015752 


01 2702 


160000 


MOV 


#160000,R2 


5153 










5154 


015756 


01 0277 


163356 1$: 


MOV 


R2,S>RKDA 


5155 


015762 


104417 


000001 


DELAY 


» 1 


5156 












5157 


015765 


105777 


163334 


TSTB 


@RKDS 


5158 


015772 


100004 




BPL 


2$ 


5159 


015774 


062702 


160000 


ADD 


#-20000, R2 


5160 












5161 


01 6000 


001 366 




BNE 


1$ 


5162 












5163 


016002 


000435 




BR 


TST45 


5164 












5165 


016004 


01 271 


000015 2$: 


MOV 


#15,@R0 


5166 


016010 


104417 


000106 


DELAY 


,106 


5167 












5168 


016014 


105777 


163310 


TSTB 


©RKER 


5169 


016020 


001006 




BNE 


3$ 


51 70 


01 6022 


004737 


021010 


JSR 


PC.GT2RG 


5171 


016026 


01 2737 


000200 001 166 


MOV 


#200,$REG2 


5172 


016034 


104105 




ERROR 


105 



;GO, DO CONTROL RESET 
;THIS IS A CALL FOR THE ' CNTRL- 
; RESET 1 ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE ' CNTRL RDY' DOES NOT SET 
; AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
; PC WHERE 'CNT. RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERRS IF IT 
; OCCURS GO BACK TO TEST 10 
; CHECK IF SIN IS SET, IF SET 
;DO DRV RESET TO CLR IT 

; ADRES DRIVE 7 TO FIND 

; IF IT IS PRESENT 

; ADRES DRIVE # POINTED TO BY R2 

; T IME DELAY , 7.5 US ON 1 1/20, 

; 1 .5 US ON 1 1 /45 
; IS IT PRESENT? 
;NO, BRANCH 

; ADRES THE NXT DRIVE IN THE 
; REVERSE ORDER. I.E. 7.6. .. . 
; LUP BAK & TRY TO FIND A DRIVE 
; THAT ' S NOT PRESENT 
; ; EXIT TO THE NXT TST 

;DRIVE RESET, ON A NX DRIVE 

; T IME DELAY. 525 US ON 11/20 

; 105 US ON 11/45 

; DID NXD BIT IN RKER SET? 

; YES, BRANCH 

; GET RKCS. RKER 

;THIS BIT (NXD) IN RKER DID NOT SET 
;NXD BIT DID NOT SET ON TRYING 
;TO PERFORM A FUNCTION ON A 



016036 022710 140214 

016042 001403 

016044 004737 021010 

016050 104106 

0160S2 104413 
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5174 

5175 

5176 

51 77 

5178 

5179 

5180 

5181 

5182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 

5199 

5200 

5201 

5202 

5203 

5204 

5205 

5206 

5207 

5208 

5209 

5210 

521 1 

5212 

5213 

5214 

5215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 

5223 

5224 

5225 

5226 

5227 

5228 

5229 



MACY1 1 30A(1052) 
144 SIMULATE 



21-FEB-78 08:58 
& CHECK NXD ERROR 



SEQ 0095 



CMP 
BEQ 

USR 
ERROR 



^140214, mo 

4$ 

PCGT2RG 
106 



CNT. RESET 



016054 


004737 


0213SS 




USR 


PCCHKECLR 


016060 


104102 






ERROR 


102 


016062 


004737 


021402 


5$: 


JSR 


PC.CHKCCLR 


016066 


104102 






ERROR 


102 


016070 


004737 


021436 




USR 


PC.TSTRWS 


016074 


104016 






ERROR 


16 



NON-EXISTENT DRIVE 

CHECK THAT THE JUMPER CARD CONTAINING 
JUMPERS FOR DRIVES PRESENT IS PROPERLY 
CONNECTED 

NOTE THAT ON RK1 1 C IF A DRIVE 
IS OFFLINE BUT PHYSICALLY PRESENT 
(IE. DRY IS CLR FOR THAT DRIVE) 
& A FUNCTION IS INITIATED ON THAT 
DRIVE NXD WON'T SET, BUT U WILL 
GET ONLY A DRE.HE & ERR. 
DID HE & ERR SET WHEN NXD SET? 
YES BRANCH 

HE OR ERR BIT DID NOT SET 

WHEN NXD WAS SIMULATED 

CLEAR NXD , HE, ERR BITS 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 1 CNTRL" 

RESET" ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL ROY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERRS IF IT 

OCCURS GO BACK TO TEST 10 

CHECK IF *NXD' BIT WAS CLEARED BY 

CON . RESET . IF NOT, RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

NXD BIT IN RKER 

CHECK IF 'HE' & 'ERR' BITS WERE CLEARED 

BY CON. RESET. IF NOT RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

HE OR ERR BIT IN RKCS 

GO CHECK & WAIT FOR R/W/S RDY 

TO SET. IF SET SKIP ERROR 

R/W/S SHOULD BE SET. IT'S 

NOT 



;*TEST 



45 SIMULATE & CHECK NXC ERROR 



******** 



016076 

016100 
0161 04 
0161 12 
0161 16 
016122 



000004 
01 3700 
012737 
01 3702 
052702 
012737 



001332 
177773 
001350 
014540 
016130 



TST45: 
2$: 



*THIS TEST SIMULATES THE NON-EXISTENT CYLINDER ERROR & CHECKS 
*t F IT is DETECTED BY THE NXC BIT OF RKER. HE & ERR BITS 
*0F RKCS. IT IS CHECKED IF THEY CAN BE CLEARED BY CONTROL 

*RESET 

SCOPE 



MOV 
MOV 
MOV 
BIS 
MOV 



RKCS, RO 
0-5 , COUNT 
DRIVAD.R2 
#14540,R2 
#3$,$LPERR 



0161 30 104413 



; ALLOW ' ERROR 133' ONLY 5 TIMES 

; GET ADRES OF DRIVE 

;SET BITS FOR CYL 313 

; SET RETURN ADRES FOR 

; LUPING ON EROR ( SW9) 

;G0, DO CONTROL RESET 

;THIS IS A CALL FOR THE ' CNTRL" 

; RESET' ROUTINE. A CONTROL RESET IS 

; ISSUED AND AFTER A CERTAIN TIME 
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:rkkf 


P1 1 21 


-FEB-78 


08:51 


5230 








5231 








5232 








5233 








5234 








5235 








5236 


016132 


004737 


021436 


5237 








5238 


016136 


104016 




5239 


016140 


104421 




5240 








5241 


016142 


01 0277 


163172 


5242 


016146 


01 2710 


000011 


5243 


016152 


104412 




5244 








5245 


016154 


104021 




5246 








5247 








5248 








5249 


016156 


032777 


000100 


5250 


016164 


001020 




5251 


016166 


004737 


021010 


5252 


016172 


01 7737 


163142 


5253 


016200 


1041 10 




5254 








5255 








5256 


016202 


004737 


021436 


5257 








5258 


016206 


104016 




5259 


016210 


104413 




5260 


016212 


004737 


021504 


5261 


016216 


104026 




5262 








5263 








5264 


016220 


005237 


001362 


5265 


016224 


001405 




5266 


016226 


062702 


000040 


5267 


016232 


032702 


01 7740 


5268 


016236 


001334 




5269 








5270 


016240 


032710 


140000 


5271 


016244 


001003 




5272 


016246 


004737 


021010 


5273 


016252 


104106 




5274 








5275 








5276 


Q1S2S4 


104413 




5277 








5278 








5279 








5280 








5281 








5282 








5283 








5284 








5285 
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SEQ 0096 



163144 9$ 2 



ERROR 
TST.SIN 



PC.TSTRWS 
16 



MOV R2 f #RKDA 

MOV #11,@R0 
CHKCRDY 



BIT 

BNE 
JSR 
MOV 

ERROR 



#100, ©RKER 
4$ 

PC.GT2RG 
PRKDA , SREG2 

110 



ERROR 16 
CNT. RESET 



JSR 
ERROR 



INC 

BEQ 
ADD 
BIT 
BNE 

BIT 
BNE 
JSR 

ERROR 



PC.DRESET 
26 



COUNT 

5$ 

#40, R2 
#17740,R2 

3$ 

#140000,@R0 
6$ 

PC.GT2RG 
106 



IF THE ' CNTRL RDY 1 DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERRS IF IT 

OCCURS GO BACK TO TEST 10 

GO CHECK & WAIT FOR R/W/S RDY 

TO SET. IF SET SKIP ERROR BELOW 

R/W/S RDY IS NOT SET 

CHECK IF SIN IS SET, IF SET 

DO DRIVE RESET TO CLR IT 

ADRES DRIVE , NXC CYLINDER 

SEEK. GO TO NXC CYL 

GO CHECK IF CONTROL RDY IS SET 

IF SO, SKIP THE EROR MESSAGE. 

SEEK WAS TRIED TO A NON EXISTENT 

CYLINDER. NXC SHOULD HAVE OCCURED 

SETTING CNTRL RDY. BUT CNTRL RDY 

DID NOT SET. 

DID NXC SET? 

ES, BRANCH 
GO GET RKCS, ER 
GET RKDA 

NXC DID NOT SET WHEN SEEK 

WAS TRIED TO CYLINDER AS INDICATED 

IN RKDA 

CHECK & WAIT FOR R/W/S RDY, 

IF SET SKIP ERROR 

R/W/S SHOULD BE SET 

GO DO CONTROL RESET 

GO DO DRIVE RESET 

NXC DID NOT SET AND DRIVE MAY 

HAVE TRIED TO DO A SEEK. AFTER 

WHICH R/W/S RDY DID NOT SET 

ALLOW ONLY 5 MESSAGES FOR 

ERROR 1 33 

ADRES THE NXT CYL(IN NON-EXISTENT ZONE) 

CHKD FOR ALL NXC'S? 

IF NOT, LUP BAK & CHK THE NXT NXC 

DID HE & ERR BIT SET WHEN NXC BIT SET? 
YES. BRANCH 
GET RKCS, ER 

HE OR ERR BIT DID NOT SET IN RKCS 
WHEN NXC ERROR WAS SIMULATED 
CLEAR HE, ERR. NXC BITS 
GO, DO CONTROL RESET 
THIS IS A CALL FOR THE ' CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERRS IF IT 
OCCURS GO BACK TO TEST 10 
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SEO 0097 





01 6256 


004737 


... ... 

02 






vJSR 


PC , CHKECLR 


; CHECK I F 'NXC' BIT WAS CLEARED BY 


COR7 
















• CON .RESET . I F NOT RETURN HERE . 


coop 




104102 








ERROR 


1 02 


; CNTRL RESET DID NOT CLEAR 


















; NXC BIT IN RKER . 






03271 


<i A n a nn 
1 4UU00 






RTT 


ft 1 lUUUU , iStK w 






1 6270 


00 1 405 








RPO 






cnqn 


1 6272 


n -i a n o "7 
01 UUj/ 


0011 62 






MOV 


RO.SREGO 


; GET ADRES OF RKCS 








0011 64 






MOV 


@R0,$REG1 


; GET RKCS CONTENTS 


ROQ^ 


1 S302 


1 041 02 








ERROR 


102 


; CNTRL RESET DID NOT CLEAR 


ROQ^ 
IoQ£ 
















; HE OR ERR BIT IN RKCS 
































********* 




is************************,*********** 












• *TEST 


46 


SIMULATE S CHECK NXS ERROR 














;*THIS 


TEST SIMULATES 


NON-EXISTENT SECTOR ERROR & CHECKS THAT 














;*IT IS 


DETECTED BY NXS BIT OF RKER . IT IS CHECKED THAT 


it 












; *WHEN 


NXS SETS HE & 


ERR OF RKER ALSO SETS, AND ALL THREE 














;*CAN BE CLEARED BY CONTROL RESET. 
















************** 


**#**'i###******#*#*##*#**s5t*sic;ji!j£***sits!sj{: 




1 6304 


UUUUu't 






TST46: 


SCOPE 






_ 


1 6306 


1 044 1 3 








CNT. RESET 


; GO , DO CONTROL RESET 


cone 
















; THIS IS A CALL FOR THE 1 CNTRL- 


5307 
















; RESET 1 ROUTINE . A CONTROL RESET IS 


... 
















; ISSUED AND AFTER A CERTAIN TIME 


















;IF THE 'CNTRL RDY 1 DOES NOT SET 


531 
















; AN ERROR I S REPORTED . NOTE THAT 


_. 
















; THE PC IN ERROR MESSAGE IS THE 


531 2 
















; PC WHERE ' CNT . RESET ' IS LOCATED. 


531 3 
















; THIS IS A VERY BAS IC ERRS IF IT 


531 4 
















; OCCURS GO BACK TO TEST 10 


531 5 


01 631 


01 3700 


001 332 






MOV 


RKCS RO 




531 6 


1 63 1 4 


1 3777 


001 350 


163016 




MOV 


DRIVAD , @RKDA 


; GET ADRES OF DRIVE 


531 7 


1 6322 


05 2777 


00001 4 


1 6301 




BIS 


#14,@RKDA 


;SET BITS FOR SECTOR 12 ( DECIMAL) 


531 8 


1 6330 


01 2777 


1 77777 


1 62776 




MOV 


#-1 ,@RKWC 


• RE&D 1 WORD 


531 9 


01 6336 


01 2777 


033342 


1 62772 




MOV 


#OUTBUF.@RKBA 


; INTO THIS BUS ADRES 


5320 


01 6344 


01 271 


000005 






MOV 


#5,@RQ 


; READ , GO { FROM NX SECTOR) 


5321 


01 6350 


1 0441 4 








CNT.RDY 




;THIS IS A CALL FOR ' CN.RDY' 


5322 
















; ROUTINE WHICH WAITS FOR CNT 


5323 
















; RDY TO SET. IF CNTRL RDY DOES 


















;NOT SET WITHIN 883 MS/ 1 1-20 


5325 
















•,(176 MS FOR 1 1-45 WITH BIPOLAR) 


5326 
















', AN ERROR IS REPORTED 


5327 
















;NXS ERROR SHOULD OCCUR NOW 


5328 


1 6352 


01 7702 


1 62752 






MOV 


@RKER,R2 




5329 


1 6356 


032702 


000040 






BIT 


#40, R2 


;DID NXS BIT SET IN RKER? 


5330 




00 1 006 








BNE 


1$ 


; YES. BRANCH 


5331 


01 6364 


004737 


021010 






USR 


PC , GT2RG 


;GO GET RKCS, RKER 


5332 


1 6370 


01 2737 


UUvyHy 


001 1 66 




MOV 


#4Q,$REG2 


;THIS BIT (NXS) IN RKER DID NOT SET 


5333 


01 6376 


1 041 05 








ERROR 


105 


;NXS BIT DID NOT SET ON SIMULATING 


5334 
















;NXS ERROR 


5335 


016400 


042702 


000040 




1$: 


BIC 


#40, R2 


; MASK NXS BIT 


5336 


016404 


001407 








BEQ 


2$ 


; CHECK IF ANY OTHER 


5337 
















; RKER BIT SET 


5338 


016406 


01 2737 


000040 


0011C1 




MOV 


#40,$REG0 


; GET EXPCTD RKER 


5339 


016414 


01 7737 


162710 


001164 




MOV 


@RKER,$REG1 


; GET RKER RECVD 


5340 


016422 


104107 








ERROR 


107 


; ONLY 1 NXS 1 SHOULD BE SET 


5341 
















; IN RKER, ANOTHER RKER BIT 
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5342 






5343 






5344 


016424 


022710 


5345 


016430 


001403 


5346 


016432 


004737 


5347 


016436 


104106 


5348 






5349 






5350 


016440 


104413 


5351 






5352 






5353 






5354 






5355 






5356 






5357 






5358 






5359 






5360 


016442 


004737 


5361 






5362 


016446 


104102 


5363 






5364 


016450 


004737 


5365 






5366 


016454 


104102 


5367 






5368 






5369 






5370 






5371 






5372 






5373 






5374 






5375 






537G 






5377 






5378 


016456 


000004 


5379 


016460 


01 3700 


5380 


016464 


104413 


5381 






5382 






5383 






5384 






5385 






5386 






5387 






5388 






5389 






5390 


016466 


104421 


5391 






5392 


016470 


01 2701 


5393 


016474 


01 2702 


5394 


016500 


01 2703 


5395 






5396 






5397 


016504 


062703 



CMP #140204, mO 

BEQ 3$ 

USR PC , GT2RG 

ERROR 106 



JSR PC, CHKECLR 

ERROR 102 

JSR PC.CHKCCLR 

ERROR 102 



; WAS SET. (NOTE 1 NXS 1 WAS 
; SIMULATED) 

;DID HE & ERR BITS SET? 

; YES, BRANCH 

;GO GET RKCS, RKER 

; HE OR ERR BIT DID NOT SET WHEN 

;NXS ERROR OCCURED 

; CLEAR NXS. HE. ERR BITS 

;G0. DO CONTROL RESET 

;THIS IS A CALL FOR THE ' CNTRL- 

; RESET 1 ROUTINE. A CONTROL RESET IS 

; ISSUED AND AFTER A CERTAIN TIME 

; IF THE 'CNTRL RDY 1 DOES NOT SET 

; AN ERROR IS REPORTED. NOTE THAT 

; THE PC IN ERROR MESSAGE IS THE 

;PC WHERE 'CNT. RESET' IS LOCATED. 

;THIS IS A VERY BASIC ERRS IF IT 

; OCCURS GO BACK TO TEST 10 

; CHECK IF 'NXS' BIT WAS CLEARED BY 

; CON. RESET. IF NOT, RETUEN HERE. 

; CNTRL RESET DID NOT CLEAR 

;NXS BIT IN RKER 

;CHECL IF 'HE' & 'ERR' BITS WERE CLEARED 
; BY CON. RESET. IF NOT, RETURN HERE. 
;RKCS BITS ERR OR HE WERE NOT 
; CLEARED BY CNTRL RESET 



TST47: 



47 SIMULATE & CHECK WCE 

♦THIS TEST SIMULATES A WRITE CHECK ERROR AND CHECKS THAT IT 

*IS DETECTED BY WCE BIT OF RKER. FOR COMPARISON IT USES 

♦THE 256 WORDS DATA BLOCK WRITTEN ON SECTOR 0. CYLINDER 

*IN A PREVIOUS TEST. THIS BLOCK IS COMPARED WITH THE 256 WORDS 

♦MEMORY BUFFER STARTING AT 'OUTBUF ' . WCE IS SIMULATED BY 

♦DROPPING A BIT FROM ONE OF THE WORDS IN THE MEMORY BUFFER. 

**********************$*^**************************!$:****** 

SCOPE 

MOV RKCS.RO 

CNT. RESET ;GO, DO CONTROL RESET 

THIS IS A CALL FOR THE ' CNTRL- 
RESET 1 ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE ' CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHEK-: 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERRS IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF SIN IS SET. IF 
SET DO D.W-RESET TO CLR IT 
#0UTBUF,R1 ;THIS CODE SETS UP A MEMORY 

#-400, R2 ; BUFFER OF 256 WORDS STARTING 

#177777, R3 ; AT OUTBUF 

FIRST WORD 177400 
SECOND 177001 

#177401 ,R3 



MOV 
MOV 
MOV 
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SEO 0099 



5398 


016510 


01 0321 




5399 


016512 


005202 




5400 


016514 


001373 




5401 








5402 


016516 


01 2737 


170007 


5403 








5404 








5405 


016524 


01 2777 


177400 


5406 


016532 


01 2777 


033342 


5407 


01 6540 


01 3777 


001350 


5403 


016546 


01 2710 


000007 


5409 








5410 


016552 


104412 




541 1 








5412 


016554 


104065 




5413 








5414 


016556 


032777 


000001 


5415 


01 6564 


001006 




5416 


016566 


004737 


021010 


5417 


016572 


01 2737 


000001 


5418 


01 6600 


104105 




5419 








5420 


016602 


022710 


100206 


5421 


016606 


001403 




5422 


016610 


004737 


021010 


5423 


016614 


104106 




5424 








5425 


016616 


104413 




5426 


016620 


004737 


021356 


5427 








5428 


016624 


104102 




5429 








5430 


016626 


004737 


021402 


5431 








5432 


016632 


104102 




5433 








5434 








5435 








5436 








5437 








5438 








5439 








5440 








5441 








5442 








5443 








5444 








5445 








5446 








5447 


016634 


000004 




5448 


016636 


104413 




5449 








5450 








5451 








5452 








5453 









MOV 
INC 
BNE 



R3, (R1 )+ 

R2 
1$ 



; LAST WORD 000377 

; HAVE U GENERATED ALL 256 WORDS? 

;IF NOT , LUP BAK & GENERATE NXT 



162602 
162576 
162572 



182S44 3$: 



;*TEST 



• • # # $ $ I 

TST50S 



0170007, OUTBUF+16 ; WCE WILL B SIMULATED BY DROPPING A 
! BIT IN THE EIGHTH WORD WHICH IS 
; SUPPOSED TO B 174007 
•-WRT CHK 400 WORDS 
•.STARTING AT THIS BUS ADRES 
;WITH THIS DISK ADRES, SEC 0. CYL 
; WRT CHK, GO 



GO CHECK IF CONTROL RDY IS SET 
IF SO, SKIP THE EROR MESSAGE. 
CNTRL RDY DID NOT SET 
AFTER WRT CHK 
DID WCE BIT SET? 

;GO, GET RKCS, RKER 

JTHIS BIT (WCE) DID NOT SET 

.'WCE DID NOT SET ON SIMULATING 

;WCE CONDITIONS 

? IS RKCS CORRECT? 

; YES, BRANCH 

;GO, GET RKCS, RKER 

? HE OR E?R BIT DID NOT SET WHEN 

;WCE WAS SIMULATED 

; CNTRL RESET . 

JWAS 'WCE' BIT CLEARED? 

5 IF NOT , RETURN HERE. 

I CNTRL RESET DID NOT CLEAR 

5 WCE BIT IN RKER 

5 CHECK IF 1 ERR 1 BIT WAS CLEARED. IF 

;NOT RETURN HERE. 

,• CNTRL RESET DID NOT CLEAR 

;RKCS 



SO CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR 

*THIS TEST CHECKS THAT WHEN 'STOP ON SOFT ERROR ' BIT IS SET IN 
*RKCS AND A SOFT ERROR IS ENCOUNTERED ALL CONTROL ACTION WILL 
*STOP AT THE END OF THE CURRENT SECTOR IF IDE BIT IS CLEAR. 
*SOFT ERROR IS SIMULATED BY A WCE AS IN THE PREVIOUS 
*TEST . THE PREVIOUS TEST & THE TEST WHICH WRITES DATA 
*BLOCK ON CYLINDER 0, SECTOR 0, SHOULD BE DONE PRIOR 
*TO THIS TEST. A TWO SECTOR 1 WRT CHK' WILL BE DONE, 
*CONTROL ACTION SHOULD STOP AFTER THE FIRST SECTOR DURING 
♦WHICH A SOFT ERROR IS SIMULATED. 

SCOPi 



MOV 


#-4OO.0RKWC 




ff OUTBUr , PRKB 


MOV 


DRIVAD ,$RKDA 


MOV 


#7, @R0 


CHKCRDY 




ERROR 


65 


BIT 


#1 ,#RKER 


BNE 


4$ 


USR 


PC.GT2RG 


MOV 


#1 , SREG2 


ERROR 


105 


CMP 


#100206, mo 


BED 


5$ 


JSR 


PC.GT2RG 


ERROR 


106 


CNT . RESET 


JSR 


PC.CHKECLR 


ERROR 


102 


JSR 


PC.CHKCCLR 


ERROR 


102 



CNT, RESET 



;GO, DO CONTROL RESET 
;THIS IS A CALL FOR THE 1 CNTRL- 
; RESET' ROUTINE. A CONTROL RESET 
J ISSUED AND AFTER A CERTAIN TIME 
; IF THE 1 CNTRL RDY' DOES NOT SET 
; AN ERROR IS REPORTED. NOTE THAT 



01 6640 104421 



016642 01 3700 001332 

016646 01 2737 170007 033360 



01 3701 
01 2777 



016654 
016660 
016666 
016674 

016700 012710 



001350 

177000 162446 
01 2777 033342 162442 
01 0177 162440 
000407 



016704 104412 



016706 104065 



016710 022777 000001 162412 2$: 
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5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5467 
5468 
5469 
5470 
5471 
5472 
5473 
5474 
5475 
5476 
5477 
5478 
5479 
5480 
5481 
5482 
5483 
5404 
5485 
5486 
5487 
5488 
5489 
5490 
5491 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5500 
5501 
5502 
5503 
5504 
5505 
5506 
5507 
5508 
5509 
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; THE PC IN ERROR MESSAGE IS THE 
; PC WHERE 'CNT. RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERR& IF IT 
; OCCURS GO BACK TO TEST 10 
TST.SIN ; CHECK IF SIN IS SET, IF 

;SET DO JRIVE RESET TO CLR IT 



016716 001407 

016720 01 2737 

016726 01 7737 

016734 104107 



000001 001 162 
162376 001164 



016736 005201 

016740 020177 162374 



016744 001406 

016746 01 0137 001162 

016752 01 7737 162362 001164 

016760 104070 



MOV 
MOV 



RKCS.RO 
#170007, OUTBUF+1 



MOV 
MOV 

MOV 
MOV 

MOV 

CHKCRDY 



DRIVAD.R1 
#-1000,@RKWC 
#OUTBUF,PRKBA 
R1 ,®RKDA 
#407,§>R0 



6 ;WCE IS SIMULATED BY DROPPING A BIT 
IN THE EIGTH WORD (WHICH IS ACTUALLY 
174007) . NOTE THAT 256 WORD MEMORY 
BUFFER IS CREATED IN THE PREVIOUS TEST. 

WRT CHK 1000 (OCTAL) WORDS. 2 SECTORS 
FROM THIS BUS ADRES 

WITH THIS DISK ADRES. SEC 0. CYL 

WRT CHK, GO, SSE 

GO CHECK IF CONTROL RDY IS SET 

IF SO. SKIP THE EROR MESSAGE. 

CNTRL RDY DID NOT SET AFTER WRT 

CHK. A SOFT ERROR (WCE) IN 

SECTOR SHOULD HAVE STOPPED 

ALL CONTROL ACTION. 

CHECK ONLY 'WCE' BIT SHOULD 

BE SET? 

YES, BRANCH 

GET EXPCTD RKER 

GET RKER RECVD 

ONLY BIT 'WCE' OF RKER 

SHOULD BE SET (WCE WAS 

SIMULATED ABOVE) . ERROR 

IF IT' S NOT 

CHECK THAT RKDA INCREMENTED BY 

1 SECTOR ONLY IMPLYING THAT 

CNTRL ACTION DID STOP AFTE.. 

SOFT ERROR IN SECTOR 

;YES. EXIT 

GET EXPCTD RKDA 

GET RKDA RECVD 

RKDA SHOULD HAVE I NCRMNTD 

BY 1 SECTOR ONLY. IT DIDN'T. 

WCE WAS SIMULATED IN THE 

FIRST SECTOR & A WRT CHK 

OF 2 SECTORS WAS ISSUED. 

CONTROLLER SHOULD STOP AFTER 

DETECTING WCE IN THE FIRST 

SECTOR . HENCE RKDA SHOULD 

INCREMENT BY 1 SECTOR ONLY 



*TEST 51 CHECK THAT RK1 1 INTERRUPTS ON SOFT ERROR WHEN SSE & IDE ARE SET 

;*THIS TEST CHECKS WHEN SSE BIT IS SET WITH IDE SET AND A SOFT 
; *ERROR OCCURS, THEN ALL CONTROL ACTION WILL STOP AND A BUS 
;*REQUEST (INTERRUPT) WILL OCCUR AT THE END OF THE CURRENT 
;*SECTOR. SOFT ERROR IS SIMULATED BY WCE AS IN PREVIOUS 
;*TEST. PREREQUISITES FOR THIS TEST ARE THE SAME AS THOSE 



CMP 

BED 
MOV 
MOV 
ERROR 



INC 
CMP 



BEQ 
MOV 
MOV 
ERROR 



#1 B #RKER 
3$ 

#1 ,$REGO 

@RKER,$REG1 
107 



TST51 

m , SREGO 

®sRKDA,$REG1 

70 
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5510 












;*FOR THE PREVIOUS TEST. 




551 1 














*** 






551 2 


016762 


000004 






TST51 • 


SCOPE 






5513 


016764 


104413 








CNT. 


RESET 


• nn nn rnki t on I dccct 


5514 


















, 1 nib 13 A CALL ruK I Ht LNTKL 


551 5 


















, K CDC. 1 KUUliNt. A UUNIHUL Kcbfc 1 13 


551 6 


















; ISSUED AND AFTER A CERTA IN TIME 


551 7 


















• T c tu c irwTDi nnv i nncc kiht cett 
, 1 r 1 n t UN I K l_ KUT UUlj NUI ot 1 


551 8 


















" A KJ CDDDD TC DCDnDTCn MHTC TLJAT 
, AN tKHUK 1 b KtrUHl tU. NU 1 t I HA 1 


551 9 


















; THE PC I N ERROR MESSAGE I S THE 


5520 


















, WHtKt UNI .Khbhi ib LUoAltU. 


5521 


















• TU T C TC A \ / C D V DACTP rnno TC TT 

, 1 nib lb A VhKY UAblL tKR& lr 11 


5522 


















; OCCURS GO BACK TO TEST 10 


5523 


01 6766 


1 04421 








TST . 


SIN 




. rurri/ TC CTKI TC CCT TC 
, UnCtft 1 r b 1 IN 1 b be 1 , 1 r 


5524 


















• cct rin rtDTwn dccct tn d tt 

, bC 1 UU UK 1 V L Ktbtl 1 U ULK 1 1 


5525 


016770 


01 2737 


1 70007 


033360 




MOV 




#170007, OUTBUF+1 


C •hiPC TC C T Ml 1 1 ATCri CJV nOflDQTW^ A DTT 

D i WOt lb b I mU LA 1 fcu BY UKUrPlNu A all 


5526 


















, i n int t i un 1 n WUHU i INnivn lb 1 itUU/ J 


5527 


















• WfiTC THAT TUC ORR WHDn MCMUDV 


5528 


















• RIIPCCD ( C T A □ T Iwr AT HI ITBI IC ^ TC 
, DU rrtK l b 1 An 1 1 No A i UUlDUr; lb 


5529 


















• PDCATCn TM A DDCUTHIIC TCCT 

, OKtA 1 tU IN A rKfcViUUb I tb 1 . 


5530 


01 6776 


01 3701 


001 350 






MOV 




DRIVAD, R1 




5531 


01 7002 


01 2777 


1 77000 


1 62324 




MOV 




#-1 000 , L-iRKWC 


,WK1 unr\ 1 UUU \ UU 1 A L ) WUKUb , 2. btu I UKb 


5532 


017010 


01 2777 


033342 


1 62320 




MOV 




#OUTBUF ,@>RKBA 


• CD riM TUTC DIIC AririCC 

, rnUM 1 nib Bub AuRfcb 


5533 


017016 


010177 


1 6231 6 






MOV 




R1 ,@RKDA 


; WITH THIS DISK ADRES, SEC 0, CYL 


5534 


1 7022 


01 3700 


00 1 402 






MOV 




RKVEC, RO 




5535 


1 7026 


1 2720 


1 7060 






MOV 




#1$, ( R0)+ 


• CCT HD TMTCDDIlnT UC^THQ CflQ Ql/4 4 

, b t 1 Ur INIfcNKURI V fcL 1 UK rUK RK I l 


5536 


1 7032 


012710 


000340 






MOV 




#340 ,<5>R0 


;SET PSW ON INTERRUPT 


5537 


1 7036 


1 2777 


000507 


62266 




MOV 




#507,@RKCS 


. Ijjdt ruie nn ccc inc cct 

, wk i unr% , uU • bbt , iUt bti 


5538 


1 7044 


1 4420 


1 77777 






WAT . 


INT 


, 1 77777 


, IN All r UK INItKKUrl r KUm KM 1 


5539 


















, 1 imt=4oD Mb r UK 11/20, 


5540 


















. Q"7 lie COD 1 4 //IK 

, » / ivib run 1 1/1S 


554 1 


1 7050 


00 4737 


021010 






JSR 




PC, GT2RG 




5542 


01 7054 


104111 








ERROR 


111 


; RK 1 1 DID NOT INTERRUPT AFTER A SOFT 


5543 


















, tKKUH (, b liviU LA 1 hU ) IN bkOiQR 


5544 


01 7056 


00 0417 








BR 




2$ 




5545 




















5546 


017060 


022626 






1 $ l 


CMP 




(SP)+, (SP) + 


, KtblUHt blALK rUINItK (FRUm RK 1 1 XNTRUPTj 


5547 


1 7062 


022626 








CMP 




(SP)+, (SP)+ 


I POP STACK ( F ROM WAT . INT ) 


5548 


1 7064 


1 2777 


004600 


1 6231 




MOV 




# BAD I NT , ©RKVEC 


• DCCTPIDC Otf 4 4 T MTCDO! IDT UCTTftQ 

, Ktb 1 UKt Kf\1 1 IN 1 fcKKUP 1 VfcuTQR 


5549 


















; ADRES FOR UNEXPECTED INTERRUPTS 




1 7072 


00 520 1 








INC 




R1 






01 7074 


0201 77 


162240 






CMP 




R1 ,@RKDA 


; CHECK THAT RKDA I N C R EM E N T E D 


5552 


















; BY ON LY 1 SECTOR BEFORE INTERRUPT 


5553 


















; OCCURRED 


5554 


017100 


00 1 406 








BEQ 




2$ 




5555 


0171 02 


010137 


00 1 1 62 






MOV 




R1 , $REGO 


; GET EXFoTD RKDA 




0171 06 


1 7737 


1 62226 


001 1 64 




MOV 




§>RKDA,$REG1 


; GET RKDA R EC VD 


5557 


0171 1 4 


1 04003 








ERROR 


3 


; RKDA SHOU LD HAVE INCREMENTED BY 


5558 


















; 1 SECTOR ONLY , I F ALL CNTR L ACT ION 




















■ MAD CT n D 3Cn ACTED CO CT CDDflD 
, rlAU blUrrcU Mr 1 CK jur 1 C K KU K 


5560 


















; (SIMULATED) IN SECTOR 0. IT DID NOT. 


5561 


017116 








2$: 










5562 


0171 16 


01 2746 


000340 






MOV 




#340, -(SP) 




5563 


017122 


01 2746 


017130 






MOV 




#64$, -(SP) 




5564 


017126 


000002 








RTI 








5565 


0171 30 








64$: 
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5566 
5567 
5568 
5569 
5570 
5571 
5572 
5573 
5574 
5575 
5576 
5577 
5578 
5579 
5580 
5581 
5582 
5583 
5584 
5585 
5586 
5587 
5588 
5589 
5590 
5591 
5592 
5593 
5594 
5595 
5596 
5597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5608 
5609 
5610 
561 1 
5612 
5613 
5614 
5615 
5616 
5617 
5618 
5619 
5620 
5621 



017130 005077 162176 



017172 
017174 
017202 
017210 



01 021 

01 2777 177777 



01 3777 
01 2777 



001350 

177776 



017216 052710 000007 



017222 104412 



01 7224 

017226 
017230 
017234 
017240 
017242 
017246 
017250 
017252 
017256 
017262 



104065 
01 0205 
062705 

042705 
01 1004 
042704 
020504 
001405 
01 0537 
01 0437 
1041 12 
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CLR @RKCS ; CLEAR THE IDE BIT 



017134 000004 

01 71 36 01 3700 001332 

017142 01 2701 177774 

01 7146 005002 

017150 01 2737 017156 

017156 104417 000142 

017162 004737 021436 

017166 104016 

017170 104413 



;*TEST 52 CHECK THE MEX 

♦ THIS TEST CHECKS OUT 
; *THE RKBA IS SET TO 1 
*THIS COULD GIVE RISE 
*SH0ULD OVERFLOW INTO 
*THAT THE OVERFLOWING 
*01 ,10,11 ,00. 

SCOPE 



1621 32 
162130 
162120 



000020 
000100 



001162 
001 164 



MOV 

~M0V 
CLR 
MOV 

DELAY 

JSR 

ERROR 



RKCS.R0 

#-4,R1 
R2 

#1$,$LPERR 

,142 

PC.TSTRWS 

16 



MOV 
MOV 
MOV 
MOV 

BIS 



ERROR 

MOV 

ADD 

BIC 

MOV 

BIC 

CMP 

BEQ 

MOV 

MOV 

ERROR 



R2.PR0 
#-1 ,@RKWC 
DRIVAD, ©RKDA 
#177776. @RKBA 

#7,|SRQ 



65 

R2.R5 
#20, R5 
#100, R5 
PR0.R4 
#177717, R 
R5.R4 
4$ 

R5.SREG0 
R4,$REG1 

112 



BITS IN RKCS 

THE EXTENDED MEMORY BITS OF THE RKCS. 
77776 AND A ONE WORD WRITE CHECK IS TRIED. 
TO NXM ERROR, BUT EVEN THEN THE RKBA 
THE MEX BITS. SIMILIARLY IT IS CHECKED 
BIT CAN MAKE THE MEX BITS COUNT 



SET UP THE COUNT 

INITIALIZE MEX BITS TO B SET IN RKCS 

SET RETURN ADRES FOR 

LUPING ON ER0R (SW9) 

TIME DELAY 

WAIT FOR R/W/S RDY 

R/W/S RDY IS NOT SET 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE ' CNTR L- 

RESET ' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE ' CNTR L RDY 1 DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET 1 IS LOCATED. 

THIS IS A VERY BASIC ERRS IF IT 

OCCURS GO BACK TO TEST 10 

SET MEX BITS (AS IN R2) IN RKCS 

WRT CHK 1 WORD 

THIS DISK ADRES, SEC 0, CYL 

THIS BUS ADRES. NOTE THIS BA 

IN C0NJUCTI0N WITH MEX BITS OF RKCS 

WRT CHK, GO 

THERE MAY BE A NXM OR WCE BUT 
WHATEVER THE CASE RKBA SHOULD 

OVERFLOW MAKING THE MEX BITS COUNT 
GO CHECK IF CONTROL RDY IS SET 

IF SO. SKIP THE ER0R MESSAGE. 
CNTRL RDY DID NOT SET AFTER WRT CHK 

MEX BITS SHOULD INCREMENT BY 1 TO THIS 
MASK OUT IDE BIT POSITION. IF SET 

GET RKCS 

MASK OUT ALL BITS EXCEPT MEX 

DID MEX BITS INCREMENT CORRECTLY? 

YES. BRANCH 

GET EXPCTD MEX BITS 

GET MEX BITS RECVD 

MEX BITS DID NOT INCREMENT AS 

' EXPCTD' WHEN RKBA OVERF LO'-'ED. 

NOTE THAT BIT POSITION 4 & 5 

REFLECT MEX BITS 4 1 IN THE 



MD-11-CZRKKF, RK1 1 BASIC LOGIC TEST 2 MACY1 1 
CZRKKF . P1 1 21-FEB-78 08:51 T52 



30A( 1052) 21-FEB-78 08:58 PAGE 104 
CHECK THE MEX BITS IN RKCS 



SEO 0103 



5622 
5623 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 
5638 
5639 
5640 
5641 
5642 
5643 
5644 
5645 
5646 
5647 
5648 
5649 
5650 
5651 
5652 
5653 
5654 
5655 
5656 
5557 
5658 
5659 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
5671 
5672 
5673 
5674 
5675 
5676 
5677 



017264 
01 7270 
01 7272 
01 7276 
01 7300 
01 7304 
01 7310 
017316 



017320 
017324 
017326 



01 7703 
01 0305 
042703 
001410 
042705 
01 0537 
01 7737 
104107 



062702 
005201 
001313 



017330 
017332 



017340 
017345 
017352 

01 7360 
017362 
017364 
017372 
017378 
01 7402 
01 7404 
01 7404 
017410 



177776 
001 162 
162014 



MOV 
MOV 
BIC 
BEQ 
BIC 
MOV 
MOV 
ERROR 



ADD 
INC 

BNE 



@>RKER,R3 
R3.R5 

#3001 ,R3 
5$ 

#177776, R5 

R5,$REG0 

@>RKER,$REG1 

107 



#20, R2 

R1 

1$ 



ERROR MESSAGE. 

GET RKER 

MASK WCE.DLT ,NXM BIT, IF SET 

BRANCH IF REST OF RKER CLR 

MASK NO.N-WCE BITS 

THIS IS THE EXPCTD RKER 

GET RKER RECVD 

ERROR IN RKER. IT SHOULD 

BE AS EXPECTED IN 

ERROR MESSAGE 

INCREMENT TO NXT MEX BIT 

HAVE U CHKD THE MEX BITS 4 TI 

IF NOT, LUP BACK 



000004 

01 2737 000001 



012737 017362 
005737 177700 
01 2737 004534 



000520 
022526 
01 2737 
01 2746 
01 2746 
000002 



;*TEST 53 TRANSFER FROM DISK TO TTY 

THIS TEST CHECKS THE HIGH ORDER BITS OF THE ADDRESS 
LINES. FIRST A ONE WORD (100) IS WRITTEN OH SECTOR, 
2, CYL 0. THEN IT IS READ BACK, BUT THE NPR IS DONE 
NOT TO THE MEMORY, BUT THE TELETYPE BUFFER (TKS 177560) 
AND IT CHECKED THAT THE WORD WAS RECIEVED CORRECTLY. 
; + XF IT IS NOT, AN ERROR IS REPORTED. THIS TEST IS 
;*SKIPPED ON AN 1 1/05. 

; j ************************************************************ 
TST53 : SCOPE 



MOV 



004534 

000340 
017404 



01 3700 
104413 



MOV 

TST 
MOV 

BR 

CMP 

MOV 

MOV 

MOV 

RTI 

MOV 
CNT 



#1 .STIMES 



#5S,@#4 
0*177700 

#BADTM0,@#4 

TST54 

(SP)+, (SP)+ 
*BADTM0,®#4 
#340 ,-(SP) 
*64$,-(SP) 



RKCS.RO 
RESET 



;D0 1 ITERATION 

THIS CODE FINDS OUT IF THE CPU 

IS AN 1 1/05 OR ELSE. 

ON AN 11/05, RO (1 77700) CAN BE 

ADDRESSED AS A MEMORY LOCATION, BUT 

ON ANY OTHER CPU IF 177700 IS REFERENCED 

A TIME OUT WILL OCCUR. 

SET UP TIME OUT VECTOR 

REFERENCE RO 

RO WAS REFERENCED W/0 TIMEOUT 
HENCE 11/05 
;SKIP THIS TEST 
RESTORE STACK POINTER 
RESTORE TIMEOUT VECTOR 



;G0, DO CONTROL RESET 
;THIS IS A CALL FOR THE 1 CNTRL- 
; RESET 1 ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
; IF THE 1 CNTR L RDY 1 DOES NOT SET 
; AN ERROR IS REPORTED. NOTE THAT 
; THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 1 CNT . RESET 1 IS LOCATED. 
;THIS IS A VERY BASIC ERR& IF IT 
; OCCURS GO BACK TO TEST 10 



017412 01 2701 033342 
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ZRKKF 


P1 1 21 


-FEB-78 


08:51 




T53 


TRANSFER FROM DISK TO TTY 


5678 


01 7416 


01 3704 


001336 






MOV 


RKBA.R4 




5679 


017422 


01 271 1 


000100 






MOV 


#100, @R1 


WRITE THIS WORD 


5680 


01 7426 


01 2777 


1 77777 


161700 




MOV 


#-1 ,@RKWC 


WRITE 1 WORD 


5681 


01 7434 


01 3702 


001350 






MOV 


DRIVAD.R2 




5682 


01 7440 


052702 


000002 






BIS 


#2,R2 


ON CYL 0. SEC 2 


5683 


017444 


01 0277 


161670 






MOV 


R2,$RKDA 




5684 


017450 


010114 








MOV 


R1 ,@R4 


FROM THIS MEMORY LOC 


5685 


017452 


01 271 


000003 






MOV 


#3,iPR0 


WRITE, GO 


5686 


017456 


005003 








CLR 


R3 




5687 


017460 


10571 






1$: 


TSTB 


mo 




5688 


017462 


10041 








BMI 


2$ 




5689 


01 7464 


005203 








INC 


R3 




5690 


017466 


001374 








BNE 


1$ 




5691 


017470 


004737 


020774 






JSR 


PCGT4RG 


GET RKCS, ER, DS 


5692 


017474 


01 0237 


001202 






MOV 


R2,$REG10 


GET THE STARTING ADRES 


5693 


01 7500 


104416 








BRKDA4 




BREAK IT INTO DRV #, CYL, SUR. SEC # 


5694 


01 7502 


104031 








ERROR 


31 


CNTRL RDY DID NOT SET AFTER 


5695 
















WRITE OF 1 WORD ON CYL 0, SEC 2 


5696 


017504 


01 2777 


177777 


161622 


2$ i 


MOV 


#-1 9 @RKWC 


READ 1 WORD 


5S97 


017512 


01 0277 


161622 






MOV 


R2,©RKDA 


FROM SEC 2. CYL 


5698 


01 7516 


01 371 4 


001 144 






MOV 


STKS,@R4 


INTO TTY STAUS REGISTER 


5699 


017522 


005077 


161416 






CLR 


@$TKS 


CLEAR TTY KEY BRD STATUS REG 


5700 


















5701 


017526 


01 2710 


000065 






MOV 


#65,@R0 


READ. MEX BITS SET 


5702 


017532 


005003 








CLR 


R3 




5703 


017534 


105710 






3$: 


TSTB 


PRO 




5704 


017536 


10041 








BMI 


4$ 




5705 


017540 


005203 








INC 


R3 




5706 


017542 


001374 








BNE 


3$ 




5707 


017544 


004737 


020774 






JSR 


PCGT4RG 




5708 


017550 


01 0237 


001202 






MOV 


R2.SREG10 


GET THE STARTING ADRES 


5709 


017554 


10441 6 








BRKDA4 




BREAK IT INTO DR#, CYL, SUR. SEC* 


5710 


017556 


104045 








ERROR 


45 


CNTRL RDY DIDN'T SET AFTER 


571 1 
















READ OF 1 WORD FROM CYL 0, SEC 2. 


5712 
















IN EROR MSGE, <DSK-ADRES> GIVES 


5713 
















ADRES WHERE READ BEGAN. 1 RKDA 1 


5714 
















GIVES CONTENTS OF RKDA AT TIME OF EROR 


5715 


017560 


032737 


000100 


001144 


4$; 


BIT 


#100,$TKS 


WAS THE CORRECT WORD READ INTO 


5716 
















THE TTY STATUS REGISTER? 


5717 


017566 


001015 








BNE 


TSTS4 


;YES. EXIT 


5718 


017570 


01 7705 


161350 






MOV 


@$TKS,RS 


; GET THE WORD RECVD FROM DISK 


5719 


017574 


01 0537 


001 164 






MOV 


R5.SREG1 




5720 


01 7600 


052705 


000100 






BIS " 


#100,R5 


THIS WORD WAS EXPCTD 


5721 


017604 


01 0537 


001 162 






MOV 


R5.SREG0 


STORE EXPCTD WORD 


5722 


017610 


01 1437 


001166 






MOV 


#R4.$REG2 


GET RKBA 


5723 


017614 


01 1037 


001170 






MOV 


9R0,$REG3 


GET RKC-„ 


5724 


017620 


1041 15 








ERROR 


115 


DATA ERROR. A ONE WORD (100) 


5725 
















NPR WAS TRIED FROM DISK TO 


572S 
















TTY KEYBOARD STATUS REGISTER 


5727 
















(17756) . BIT 6 SHOULD HAVE BEEN 


5728 
















SET AS RESULT OF THIS 


5729 
















BUT IT WAS NOT 


5730 


















5731 


















5732 










• "#$*#*#****i£#$*®#*#*&###$**$#*###*********^ 


5733 










;»TEST 


54 


CHECK THAT RKBA CAN COUNT CORRECTLY 



SEO 0104 
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CZRKKF. 


P11 21 


-FE8-78 


08:51 


5734 








5735 








5736 








5737 








5738 








5739 








5740 








5741 








5742 


017622 


000004 




5743 


017624 


01 2737 


000005 


5744 


017632 


104421 




5745 


017634 


005001 




5746 


01 7636 


01 2702 


000002 


5747 








5748 


017642 


01 2737 


01 7654 


5749 








5750 








5751 


017650 


01 3705 


001336 


5752 


017654 


004737 


021436 


5753 


01 7660 


104016 




5754 


017662 


104413 




5755 


017664 


01 2777 


177777 


5756 


017672 


01 01 15 




5757 


017674 


01 3777 


001350 


5758 


017702 


01 2777 


000067 


5759 


017710 


104412 




5760 








5761 


01 7712 


104065 




5762 








5763 








5764 








5765 


017714 


005237 


001356 


5766 


01 7720 


00141 7 




5767 








5768 


017722 


020215 




5769 








5770 


017724 


00141 




5771 


017726 


01 0137 


001 1 62 


5772 


017732 


01 1537 


001 164 


5773 


017736 


104017 




5774 








5775 








5776 








5777 








5778 








5779 








5780 








5781 


01 7740 


005237 


001360 


5782 


017744 


001405 




5783 


017746 


060201 




5784 


01 7750 


01 01 02 




5785 


017752 


062702 


000002 


5786 


017756 


001336 




5787 








5788 


017760 






5789 
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T54 CHECK THAT RKBA CAN COUNT CORRECT LY 

♦THIS TEST CHECKS THAT RKBA CAN COUNT CORRECTLY. IT IS SET 
*T0 THE DESIRED INITIAL VALUE. THEN A ONE WORD WRITE CHECK 
*IS TRIED, WITH MEX (MEMORY EXTENSION) BITS SET. IF THERE IS 
*N0 MEMORY PRESENT (FOR CERTAIN BUS ADDRESSES) . THERE 
*WILL BE AN NXM ERROR STOPPING CONTROLLER ACTION. BUT RKBA 
♦SHOULD HAVE INCREMENTED BY 1 FROM ITS INITIAL VALUE. IF IT 
*HAS NOT, AN ERROR IS REPORTED. 



SEO 0105 



161442 



161436 
161422 



SCOPE 

MOV #5,STIMES 
TST.SIN 

R1 

#2,R2 



CLR 

MOV 



MOV 



#1$,$LPERR 



MOV 
JSR 
ERROR 
CNT .RESI 
MOV 
MOV 
MOV 
MOV 
CHKCRDY 

ERROR 



RKBA.R5 
PC.TSTRWS 

16 
ET 

#-1 ,§>RKWC 
R1,©R5 ;THIS 
DRIVAD , S&RKDA 

#67,@RKCS 



INC 

BEQ 

CMP 

BEQ 
MOV 
MOV 
ERROR 



INC 

BEQ 
ADD 
MOV 
ADD 
BNE 



INDX1 

5$ 

R2,ms 

4$ 

R1 ,$REG0 

@R5,$REG1 
17 



INDX2 

5$ 

R2,R1 
R1 , R2 

#2,R2 
1$ 



; ;D0 5 ITERATIONS 

; CHECK IF SIN SET , IF SET DRV RESET 

; INITIALIZE (VALUE OF RKBA) 

; INITIALIZE ( INCMNTD VALUE OF RKBA) 

;SET RETURN ADRES FOR LUPING 
;0N EROR 



WAIT FOR R/W/S RDY 
R/W/S RDY IS NOT SET 
DO CONTROL RESET 
WRITE CHK 1 WORD 

ADRES 
SET DISK ADRES 

WRITE CHECK, GO, MEX BITS SET 
GO CHEC" IF CONTROL RDY IS SET 
IF SO, SKIP THE EROR MESSAGE. 
CNTRL RDY DID NOT SET AFTER 
WRT CHK WAS TRIED TO NXM LOC 
U MIGHT WANT TO USE TESTS 
CHECKING MEX BITS & NXM. 
ALLOW ONLY 5 ERRORS OF ABOVE KIND 



DID RKBA INCREMENT BY 1 FROM 

ITS INITIAL VALUE? 

YES, BRANCH 

GET EXPCTD RKBA 

GET RKBA RECVD 

RKBA DID NOT INCREMENT BY 

1 FROM ITS INITIAL VALUE. 

ONE WORD WRT CHK WAS TRIED 

TO A NXM LOCATION. THERE 

WILL BE AN NXM ERROR , 

BUT STI LL RKBA SHOULD 

INCREMENT BY 1 FROM ITS 

INITIAL VALUE. 

ALLOW ONLY 5 ERRORS OF 

THE ABOVE KIND 

SET NXT VALUE OF RKBA 

SET EXPCTD VALUE OF RKBA 
ALL DONE? 

DUMMY EXIT POINT 
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T54 CHECK THAT RKBA CAN COUNT CORRECTLY 



5790 






5791 






5792 






5793 






5794 






5795 






5796 






5797 


01 7760 


000004 


5798 


01 7762 


01 2737 


5799 


01 7770 


005737 


5800 


017774 


001403 


5801 


01 7776 


004537 


5802 


020002 


104120 


5803 






5804 


020004 




5805 






5806 






5807 






5808 






5809 






581 






581 1 






5812 






5813 






5814 


020004 


000004 


5815 


020006 


01 2737 


5816 


020014 


005237 


5817 






5818 


020020 


004737 


5819 


020024 


104026 


5820 


020026 


023737 


5821 






5822 


020034 


001405 


5823 


020036 


062737 


5824 


020044 


000137 


5825 






5826 


020050 


005037 


5827 






5828 






5329 






5830 






5831 






5832 






5833 






5334 






5835 






5836 






5837 






5838 






5839 






5840 






5841 






5842 






5843 






5844 






5845 


020054 


000004 



;*TEST 



55 CHECK FOR RK-05F 

*THIS TEST CHECKS RK-05F TYPE DRIVES 

*TO INSURE THAT IF SEEKS ARE ISSUED ON ONE 

♦DRIVE , THE OTHER DRIVE BECOMES BUSY 



000001 
001404 



SCOPE 

MOV 

TST 

BEQ 

JSR 

ERROR 



#1 ,$TIMES 
FF LAG 
1$ 

R5 , FCHECK 
120 



; ;DO 1 ITERATION 

;SEE IF RK-05F 

;NOT F 

;SEE IF OTHER GOES BUSY 



; ; **** 
;*T£ST 56 



END OF PROGRAM 
;*THIS IS NOT A TEST , BUT A LINKAGE PROVIDED TO PERFORM 
; *THE ABOVE SUB-TESTS FOR ALL DRIVES THAT ARE PRESENT. 
;*NOTE THAT THE NEXT TEST- HARDWARE POLLING LOGIC- 
; *IS DONE USING ALL THE DRIVES THAT ARE INDICATED PRESENT. 
;*DO NOT LOOP ON THIS 'TEST' . 



000001 
001352 



; ; ********* 
TST56: SCOPE 
MOV 
INC 



001412 001352 BTEOP: 



JSR 

ERROR 

CMP 

BEQ 
ADD 

JMP 



#1 ,$TIMES 

DRVDON 

PC , DRESET 

26 

DRIVS, DRVDON 



#20000, DRIVAD 
NUDRV 



;DO 1 ITERATION 

INCREMENT THE COUNT FOR THE NUMBER 
OF DRIVES THAT ARE CHECKED 
RESET THE DRIVE 

R/W/S DIDN'T SET AFTER DRIVE RESET 
HAVE U TESTED ALL THE DRIVES 
THAT ARE PRESENT? 
IF YES, EXIT 

ADRES THE NXT POSSIBLE DRIVE 
GO BACK AND TEST THE NEXT 
DRIVE PRESENT 



"■TEST 57 CHECK HARDWARE POLLING LOGIC 

*THIS TEST CHECKS THE HARDWARE POLL LOGIC. USING ALL THE DRIVES 
♦PRESENT ON THE RK1 1 . ATLEAST TWO DRIVES SHOULD BE PRESENT 
*TO DO A MEANINGFUL HARDWARE POLL. SEQUENCE OF OPERATIONS IS 
*AS FOLLOWING: 

*1) NUMBER OF DRIVES ON THE RK1 1 IS ASCERTAINED. 

♦2) HAVING LOCKED OUT ALL INTERRUPTS (CPU PR 7), SEEK IS INITIATED 
*FOR ONE DRIVE AT A TIME , ONLY WHEN ' CNTRL RDY ' IS SET . 

♦3) CPU PRIORITY IS DROPPED TO 4 SO THAT RK1 1 CAN INTERRUPT. THE INCOMING 
♦INTERRUPT IS PROCESSED TO CHECK IF IT WAS DUE TO 'SEEK DONE' BY 
*ONE OF THE DRIVES. 

*4) IF BY THE END OF THE SET TIME A DRIVE HAS NOT INTERRUPTED 
* AN ERROR MESSAGE IS GIVEN INDICATING WHICH DRIVE DID NOT 
♦INTERRUPT AFTER SEEK WAS DONE. 

TST57 : SCOPE 
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T57 CHECK HARDWARE POLLING LOGIC 



SEO 0107 



5846 


020056 


01 2737 


000005 001206 




MOV 


5847 


020064 


005237 


001440 




INC 


5848 


020070 


001002 






BNE 


5849 


020072 


004737 


025304 




JSR 


5850 


020076 


005037 


001436 


25$: 


CLR 


5851 


0201 02 


01 2700 


001414 




MOV 


5852 


0201 06 


005710 




23$: 


TST 


5853 


0201 10 


001405 






BEQ 


5854 


0201 12 


005237 


001436 




INC 


5855 


0201 16 


005710 






TST 


5856 


0201 20 


100001 






BPL 


5857 


0201 22 


005720 






TST 


5858 


0201 24 


005720 




22$ : 


TST 


5859 


020126 


020027 


001433 




CMP 


5860 


0201 32 


002765 






BLT 


5861 


0201 34 


005037 


001406 




CLR 


5862 


020140 


005737 


001412 


T56: 


TST 


5863 


020144 


001002 






BNE 


5864 


020146 


000137 


020652 




JMP 


5865 


020152 


005237 


001434 


20$: 


INC 


5866 


0201 56 


01 3700 


001332 




MOV 


5867 


020162 


005037 


001356 




CLR 


5868 












5869 












5870 












5871 












5872 


020166 


005037 


001360 


15$: 


CLR 


5873 












5874 












5875 












5876 


020172 


104413 






CNT 


5877 












5878 












5879 












5880 












5881 












5882 












5883 












5884 












5885 












5886 


020174 


005737 


001356 




TST 


5887 


020200 


001002 






BNE 


5888 


020202 


005002 






CLR 


5889 


020204 


000402 






BR 


5890 


020206 


01 2702 


000200 




MOV 


5891 


020212 


01 2701 


001414 




MOV 


5892 


020216 


01 2703 


177770 




MOV 


5893 


020222 


01 2705 


033342 




MOV 


5894 


020226 


005025 






CLR 


5895 


020230 


005203 






INC 


5896 


020232 


001375 






BNE 


5897 


020234 


01 2703 


177776 




MOV 


5898 


020240 


01 2705 


033342 




MOV 


5899 


020244 






1$: 




5900 


020244 


012746 


000340 




MOV 


5901 


020250 


01 2740 


020256 




MOV 



#5,$TIMES 
5IZYET 

25$ 

PC.SIZEF 

PHYDRV 

#DRIVO,RO 

(RO) 

22$ 

PHYDRV 
(RO) 
22$ 
(R0) + 

(R0)+ t NEXT 

RQ,#DRIV74-1 
23$ 

ODDEVN 

DRIVS 

20$ 

$EOP 

T56FLG 

RKCS.RO 

INDX1 



INDX1 
.+6 
R2 
.+6 

#200, R2 
#DRIV0,R1 
#-10, R3 

#0UTBUF,R5 
(R5) + 

R3 
,-4 

#-10, R3 
#OUT0UF,RS 

#340,~{$P) 

#64S,«CSP) 



; ; DO 5 ITERATIONS 
; FOUNR RK05F YET? 
; YES 

; FIND WHICH ARE RK-05F 
; NUMBER OF ACTUAL DRIVES 
; TABLE 

; DRIVE HERE+? 

;N0 

; COUNT DRIVE 

;RK05F? 

;N0 

; DONT COUNT F TWICE 
DRIVE 

; ALL YET 
;N0 

; EVEN DRIVES FIRST IF F 
; ANY DRIVES PRESENT? 
; YES 
;N0 



FLAG TO INDICATE: 

(INDX1 )«0 POLLING DONE AFTER ALL 

; DRIVES SEEK TO CYL 
(INDX1 )=1 POLLING DONE AFTER ALL 

'.DRIVES SEEK TO CYL 4 
FLAG INDICATING TYPE OF INTERRUPT 
SET TO NON-ZERO TO INDICATE 
THAT THE INTERRUPT IS DUE TO 
SEEK DONE 

GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET 1 ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE ' CNTRL ROY ' DOSS NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR& IF IT 
OCCURS GO BACK TO TEST 10 
REFORMING SEEKS TO CYL 4 
YES. BRANCH 
NO 

SET ADRES FOR FOURTH CYLINDER 

INITIAL ZE POINTER 

SET COUNT FOR 8 DRIVES 

INITIALIZE POINTER TO INDICATOR AREA 

CLEAR OUT THE 8-WORD INDICATOR 

AREA WHICH IS USED FOR DOING 

SOFTWARE POLLING LATER ON 

SET COUNT FOR 8 POSSIBLE DRIVES 

INITIALIZE POINTER TD INDICATOR AREA 
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5902 

5903 

5904 

5905 

5906 

5907 

5908 

5909 

5910 

591 1 

5912 

5913 

5914 

5915 

5916 

5917 

5918 

5919 

5920 

5921 

5922 

5923 

5924 

5925 

5926 

5927 

5928 

5929 

5930 

5931 

5932 

5933 

5934 

5935 

5936 

5937 

5938 

5939 

5940 

5941 

5942 

5943 

5944 

5945 

5946 

5947 

5948 

5949 

5950 

5951 

5952 

5953 

5954 

5955 

5956 

5957 
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020254 


000002 






RTI 




020256 






64$ ! 






020256 


03271 1 


000001 




BIT 


#BIT0, (R1 ) 


020262 


001433 






SEO 


4$ 


020264 


00571 1 






TST 


(R1 ) 


020266 


1 0001 2 






BPL 


17$ 


020270 


032702 


020000 




BIT 


#BIT13,R2 


020274 


00 1 404 






BEQ 


16$ 


020276 


005737 


001406 




TST 


ODDEVN 


020302 


001423 






BEQ 


4$ 


020304 


000403 






BR 


17$ 


020306 


005737 


001408 


16$: 


TST 


ODDEVN 


02031 2 


001017 






BNE 


4$ 


020314 


01 0215 




17$: 


MOV 


R2, (R5) 


020316 


042725 


017777 




BIC 


#17777, (R5) 


020322 


005004 






CLR 


R4 


020324 


105710 




2$: 


TSTB 


§>R0 


020326 


100405 






BMI 


3$ 


020330 


005204 






INC 


R4 


020332 


001374 






BNE 




020334 


004737 


020774 




USR 


PC , GT4RG 


020340 


104021 






ERROR 


21 


020342 


01 0277 


160772 


3$: 


MOV 


R2,@RKDA 



020346 012710 

020352 005721 

020354 062702 

020360 005203 

020362 001 330 



MOV 
TST 
ADD 
INC 

BNE 



020384 


005004 






CLR 


020366 


01 3702 


00140a 


5$: 


MOV 


020372 


01 2722 


020424 




MOV 


020376 


012712 


000340 




MOV 


020402 


01 3746 


001400 




MOV 


020406 


01 2746 


020414 




MOV 


020412 


000002 






RTI 


020414 


000240 




18$: 


NOP 


020416 


005204 






INC 


020420 


001375 






BNE 


020422 


000452 






BR 


020424 


022626 




6$: 


CMP 


020426 


005737 


001360 




TST 


020432 


001021 






BNE 



#111 f @R0 
(R1 ) + 
#20000, R2 
R3 
1S 



R4 

RKVEC.R2 
#6$ , { R2 ) + 
#340, (R2) 
RKPRI , - ( SP ) 
#18$, -(SP) 



R4 

18$ 

11$ 

(SP)+, (SP)+ 

INDX2 



IS THIS DRIVE PRESENT? 
IF NOT, BRANCH 
RK06F? 

NO, CONTINUE 
DRIVE EVEN? 
YES 

DO WE WANT ODD? 
NO, SO DO NOT TEST 
ADD THIS DRIVE TO LIST 
DO WE WANT EVEN? 
NO, SO SKIP 

SET UP THIS WORD IN THE 
INDICATOR AREA SHOWING THAT THIS 
DRIVE (AS IN BITS 13-15 OF R2) 
IS PRESENT 

MASK OUT UNWANTED BITS (CYL.SUR.SEC BITS) 

IS CNTRL RDY SET? 

YES. BRANCH 

NO, WAIT FOR IT 

IF WAITED LONG REPORT ERROR 

;G0. GET RKCS.ER.DS.DA 
CNTRL RDY DID NOT SET AFTER ACCEPTING 
ADRES F°OM PREVIOUS SEEK 
ADRES THIS DRIVE. CYL OR CYL 4 
(WHICHEVER THE CASE MAY BE) 
SEEK. GO. IDE SET 
NEXT DRIVE DATA 

INCREMENT DRIVE ADRES (BITS 15,14.13) 
TO NEXT ONE 

BRANCH BACK IF ALL DRIVES ARE 
NOT CHECKED TO SEE IF THE NEXT 
DRIVE IS PRESENT (& IF SO ISSUE A 
SEEK TO IT ) 

BY NOW SEEKS HAVE BEEN ISSUED 
TO ALL DRIVES PRESENT & POLLING 
HAS BEGUN 



;SET ADRES FOR RK11 TO I NT ERUPT 
;SET PSW ON INTERUPT 
JDROP CPU PRIORITY TO 4 SO THAT 
; RK1 1 CAN INTERUPT 

THIS IS A TIME LOOP DURING 
WHICH ALL DRIVES PRESENT SHOULD 
INTERRUPT 

BRANCH AND CHECK IF ALL AVAILABLE 

DRIVES INTERRUPTED CORRECTLY 

RESTORE STACK POINTER 

WAS THIS FIRST INTERRUPT 

DUE TO 'ADRES ACK ' AFTER INITIATION 

OF SEEK? 

IF YES, CHECK THE FOLLOWING 
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SEQ 0109 



5958 








5959 


020434 


03271 


020000 


5960 


020440 


001403 




5961 


020442 


01 1037 


001 162 


5962 


020446 


104076 




5963 








5964 








5965 


020450 


01 7701 


160652 


5966 


C20454 


032701 


160000 


5967 


020460 


001403 




5968 


020462 


01 0137 


001162 


5959 


020466 


104050 




5970 








5971 








5972 








5973 








5974 








5975 


020470 


005237 


001360 


5978 








5977 








5978 








5979 


020474 


000734 




5980 








5981 


020476 


01 3703 


001436 


5982 


020502 


01 2705 


033342 


5983 


020506 


01 7701 


160614 


5984 


020512 


042701 


017777 


5985 








5986 








5987 








5988 








5989 








5990 








5991 


020516 


020125 




5992 


020520 


00141 1 




5993 


020522 


005303 




5994 


020524 


001374 




5995 








5996 








5997 








5998 


020526 


01 0146 




5999 


C20530 


004737 


021200 


6000 


020534 


01 2637 


001 162 


6001 








6002 








6003 


020540 


104051 




6004 








6005 








6006 


020542 


000401 




6007 


020544 


005245 




6008 








6009 








6010 








601 1 


020546 


000707 




6012 


020550 


01 3703 


001436 


6013 


020554 


01 2705 


033342 



BIT 
BEQ 
MOV 
ERROR 



MOV 
BIT 
BEQ 
MOV 
ERROR 



BR 

MOV 

MOV 
MOV 
BIC 



CMP 

BEQ 
DEC 
BNE 



MOV 

USR 
MOV 



BR 
INC 



BR 

MOV 

MOV 



#20000, @R0 
7$ 

§>R0,$REG0 
76 



§>RKDS,R1 
#160000, R1 

8$ 

R1 ,SREG0 
50 



5$ 

PHYDRV.R3 

#0UTBUF,R5 

©RKDS.R1 

#17777, R1 



R1 , (R5)+ 
10$ 

R3 
.-6 



R1 ,-(R6) 
PC , SHFTRT 
(R6)+,$REG0 



105+2 

™(R5) 



5$ 

PHYDRV , R3 
#0UTBl)F,R5 



; CHECK THAT SCP IS NOT SET 
; BRANCH IF SCP CLEAR 
; GET RKCS 

; AFTER THE FIRST INTERRUPT WHICH 
; IS DUE 10 INITIATION OF SEEK, SCP 
; SHOULD NOT HAVE SET. IT DID 

; RKDS BITS 15-13 SHLOULD BE CLR 

; GET RKDS 

; SEEK, WITH IDE SET WAS ISSUED TO 

; ALL AVAILABLE DRIVES. THE FIRST 

; INTERUPT IS DUE TO SEEK INITIATED 

; BY FRST DRV. DRV ID BITS 13-15 

; SHOULD BE CLR AFTR THIS FRST INRUPT. 

; THEY WERE NOT IF THIS ERROR OCCURS. 

; SET UP FLAG INDICATING 

; THAT THE FIRST INTERRUPT DUE 

;T0 INITIATION OF SEEK WAS 

; PROCESSED 

;G0 BACK TO THE WAIT LOOP & WAIT 

; FOR NEXT INTERRUPT FROM RK11 

;SET COUNT OF # OF DRIVES PRESENT 

; INITIALIZE POINTER 

; GET RKDS 

; MASK BITS 0-12 

; THE FOLLOWING CODE IS A SOFTWARE 
; POLL WHICH FINDS OUT WHICH DRIVE 
; CAUSED THE PRESENT INTERRUPT 
; AND SETS UP A FLAG BIT FOR 
; THE DRIVE # , INDICATING THAT 
;THIS DRIVE # INTERRUPTED 

; BRANCH IF INTERRUPTING DRIVE WAS FOUND 

; HAVE U CHKD ALL DRIVS PRESENT? 

; IF NOT LUP BAK & CHK 

-.REPORT ERROR IF THE INTERRUPTING 

;DRIVE # (AS IN RKDS 13-15) WAS NOT 

; ANY ONE OF THOSE THAT ARE PRESENT 

; GET WORD TO B SHFTD RT 

;GO SHIFT IT 

;THIS DRIVE # WAS RECVD IN RKDS AS 
; THE INTERRUPTING DRIVE, BUT THIS 
;DRIVE IS NOT PHYSICALY PRESENT 
; RKDS INDICATES AN INTERRUPTING 
•.DRIVE # (DURING H ' WARE POLL) BUT 
; THAT DRIVE IS ACTUALLY NOT PRESENT 

;SET UP FLAG INDICATING THAT 

; THE INTERRUPT FOR THIS DRIVE 

; (AFTER IT HAD COMPLETED ITS SEEK) 

;WAS PROCESSED 

;GO BAK & WAIT FOR FURTHER INTRUPTS 

; GET # OF DRIVES 

; INITIALIZE POINTER 
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6014 
6015 
6016 
601 7 
6018 
601 9 
6020 
6021 
6022 
6023 
6024 
6025 
6026 
6027 
6028 
6029 
6030 
6031 
6032 
6033 
6034 
6035 
6036 
6037 
6038 
6039 
6040 
6041 
6042 
6043 
6044 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6058 
6059 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6069 



020560 
020562 
020564 
020566 
020572 



020600 
020604 
020606 

020610 
020614 
020616 
020622 



105715 
UO 1 006 
01 1546 

004737 021 200 
01 2637 001 162 



020576 104052 



020626 
020632 
020640 
020642 
020646 



062705 000002 

005303 

001364 

005737 001356 
001004 

005237 001356 
000137 020166 



TSTB 


(R5) 


;DID THIS DRIVE INTERRUPT? 


BNE 


13$ 


, YES, BRANCH 


MOV 


(R5),-(R6) 


, GET THIS DRIVE # 


JSR 


PC, SHFTRT 


•.SHIFT IT TO THE RIGHT 


MOV 


(R6)+,$REG0 


THIS DRIVE # DID NOT INTERRUPT 






DURING H 1 WARE POLL 


ERROR 


52 


DRIVE H (AS IN SREGO) DID NOT 






INTERRUPT DURING HARDWARE POLL 


ADD 


#2,R5 


INCREMENT POINTER TO THE NEXT FLAG 


DEC 


R3 


CHKD FOR ALL DRIVES? 


BNE 


14$ 


If NOT LUP BACK 


TST 


INDX1 


DONE POLLING FOR SEEKS TO CYL 312? 


BNE 


TSTEND 


IF YES, EXIT 


INC 


INDX1 


IF NOT, INCREMENT FLAG 


JMP 


15$ 


GO DO IT 



001406 
000002 



005237 
022737 
001402 

000137 020140 
005037 001434 



TSTEND : INC 
CMP 

BEQ 
JMP 

21$: CLR 



ODDEVN 

#2,0DDEVN 

21$ 

T56 

T56FLG 



INDICATOR TABLE 

THE 8-WORD INDICATOR TABLE USED IN 
THE FORMER PART OF THIS SUB-TEST 
IS LOCATED STARTING AT 'OUTBUF' . 
WORDS ARE SET UP TO INDICATE 
PRESENCE OF A DRIVE EG: IF 
DRIVES 0,1,2 ARE PRESENT , IT WILL 
LOOK LIKE 

OUTBUF: 000000 BITS 13,14,15 

020000 CONTAIN THE 

040000 DRIVE NO. 
000000 REST 1 S 

WHEN A DRIVE INTERRUPTS AFTER SEEK 
IS DONE BIT OF THE CORRESPONDING 
INDICATOR WORD IS SET. THUS FOR THE 
ABOVE EXAMPLE IF ALL DRIVES INTERRUPTED 
CORRECTLY THEN IT WILL LOOK LIKE: 
12$: 000001 BIT SET 

020001 TO INDICATE 

040001 DR INTERRUPTED 
000000 REST O'S 



NOW ODD IF RK05F 
SEE IF DONE 
ALL DONE 
TEST AGAIN 



•SBTTL END OF PASS ROUTINE 
* INCREMENT THE PASS NUMBER ($PASS) 

INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
*TYPE "END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
♦IF THERES A MONITOR GO TO IT 
♦IF THERE ISN'T JUMP TO ST4 
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6070 






6071 


020552 




6072 


020652 


000004 


6073 


020654 


005037 


6074 


020660 


005037 


6075 


020664 


005237 


6076 


020670 


042737 


6077 


020576 


005327 


6078 


020700 


000001 


6079 


020702 


003022 


6080 


020704 


01 2737 


6081 


020706 


000001 


6082 


020710 


020700 


6083 


02071 2 


104401 


6084 


020716 


01 3746 


6085 


020722 


104405 


6086 


020724 


104401 


6087 


020730 


01 3700 


6088 


020734 


001405 


6089 


020736 


000005 


6090 


020740 


004710 


6091 


020742 


000240 


6092 


020744 


000240 


6093 


020746 


000240 


6094 


020750 




6095 


020750 


000137 


6096 


020752 


004456 


6097 


020754 


377 


6098 


020757 


015 


6099 


020764 


050040 


6100 


020772 


000043 


6101 






6102 






6103 






6104 






6105 






6106 






6107 






6108 






6109 






6110 






61 1 1 






6112 






61 13 






6114 






61 15 






61 16 






6117 

61 18 






61 19 






6120 






6121 






6122 






6123 






6124 






612S 







001 102 
001206 
001 100 
1 00000 



020757 
001 100 



020754 
000042 



377 
042412 
051501 



000 
042116 
020123 



SGET42: 
SENOAO.* 

SDOAGN: 

SRTNAD: 
SENULL: 
SENDMG: 



SCOPE 






CLR 


STSTNM 


; ZERO THE TEST NUMBER 


CLR 


STIMES 


; ZERO THE NUMBER OF I TER AT IONS 


INC 


$PASS 


; INCREMENT THE PASS NUMBER 


BIC 


#1 00000 , SPASS 


; DON'T ALLOW A NEG - NUMBER 


DEC 


(PC) + 


; LOOP? 


. WORD 


1 




BGT 


$DOAGN 


; YES 


MOV 


( PC)+,@( PC)* 


; RESTORE COUNTER 


. WORD 


1 




SEOPCT 






TYPE 


, SENDMG 


; TYPE " END PASS #" 


MOV 


SPASS, -(SP) 


; SAVE SPASS FOR TYPEOUT 


TYPDS 




; GO TYPE — DECIMAL ASCI I WITH SIGN 


TYPE 


, SENULL 


; TYPE A NULL CHARACTER 


MOV 


$#42, RO 


;C-ET MONITOR ADDRESS 


BED 


SDOAGN 


; BRANCH I F NO MONITOR 


RESET 




; CLEAR THE WORLD 


JSR 


PC, (RO) 


; GQ TO MONITOR 






; SAVE ROOM 


NOP 




;FOR 


NOP 




;ACT11 


JMP 


@(PC)+ 


; RETURN 


.WORD 


ST4 




. BYTE 


-1 ,-1 ,0 


; NULL CHARACTER STRING 


. ASCI2 


<15><12>/END PASS #/ 



. SBTTL GT2RG: ROUTINE FOR GETTING RKCS, RKER 

{SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS, RKER 

;T0 SREGO , SREG1 RESPECTIVELY BEFORE TYPING OUT AN ERROR MESSAGE. 

| CALL! JSR PC , GT2RG 

.SBTTL GT3RG: ROUTINE FOR GETTING RKCS, RKER, RKDS 

; GT3RG 

{SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS , RKER, RKDS 
;T0 SREGO, SREG1 , $REG2 RESPECTIVELY BEFORE TYPING OUT AN 
; ERROR MESSAGE. 
;CALL: JSR PC , 6T3RG 

.SBTTL GT4RG5 ROUTINE FOR GETTING RKCS , RKER, RKDS, RKD& 



;GT4RG 

? SUBROUTINE FOR TRANSFERRING CONTENTS OF RKCS, 



RKER, RKDS 



020774 017737 
021002 017737 



02101 
021016 

021024 



01 7737 
017737 
000207 



160340 
160320 
160314 
160310 
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6128 
6127 
6128 
6129 
6130 
6131 
6132 
61 33 
6134 
6135 
6136 
6137 
6138 
6139 
6140 
6141 
6142 
6143 
6144 
6145 
6146 
6147 
6148 
6149 
6150 
6151 
6152 
6153 
6154 
6155 
6156 
6157 
6158 
6159 
6160 
6161 
6162 
6163 
6154 
6165 
6166 
6167 
6168 
6169 
6170 
6171 
6172 
6173 
61 74 
6175 
6176 
6177 
6178 
6179 
6180 
6 1 8 1 



021 026 

021025 104401 021034 

021032 000406 

021050 

021050 010346 

021052 104402 

021054 000207 
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GT4RG : ROUTINE FOR GETTING RKCS , RKER , RKDS, RKDA 

; RKDA TO SREGO , SREG1 , $R£G2, $REG3 RESPECTIVELY BEFORE 
ITYPING OUT AN ERROR MESSAGE*. 
;CAlt: JSR PC,GT4RG 



SEC 0112 



001178 GT4RG ; 

001166 GT3RG: 

001164 ST2RGS 
001162 



021058 010048 

02106-0 012700 001 172 



MOV 
MOV 
MOV 
MOV 

RTS 



*RKDA,$REG3 

§>RKDS,$REG2 
@RKER , $REG1 
#>RKCS » SREGO 
PC 



GET RKDA 
GET RKDS 
GET RKER 



.SBTTL TYEKIV1: SPECIAL ERROR MESSAGE ROUTINE 

TYERM 

THIS ROUTINE TYPES OUT 1 EROR AT PC = X' 

X IS THE PC WHERE THE EXPLANATION AS TO WHAT HAPPENED IS GIVEN- THIS ROUTINE 
IS USED ONLY FOR NON-MANUAL MODE OF THE PROGRAM . 



CALL: 



; ;65$: 
64$ 5 



TYPE 

BR 

. ASCI2 

MOV 

TYPOC 

RTS 



JSR 



,65$ 
64$ 



TYERM 



<15><12>/ER0R,PC«/ 



; TYPE ASCIZ STRING 

; ;GET OVER THE ASCIZ 



PC 



.SBTTL BDAO , BDA4 : 
BDAO, BDA4 



BREAK DISK ADDRESS INTO SEC , SUR, CYL, DRIVE 



THIS ROUTINE BREAKS A DISK ADDRESS (BITS 0-15) INTO DRIVE #, 
CYLINDER #, SURFACE, SdCTOR #. THE ROUTINE IS CALLED BY USING EITHER 
BRKDAO OR 8RKDA4 , BOTH BEING 1 TRAP 1 INSTRUCTXQS WITH THEIR LOWER BYTIS 
ENCODED TO PROVIDE INDEXING TO 1 BDAO 1 OR 1 BDA4 1 . BEFORE CALLING 
THE ROUTINE THE DISK ADDRESS WHICH IS TO BE BROKEN AS ABOVE 
IS DEPOSITED IN $REG10. 

BRKDA4 PUTS THE 
DRIVE # INTO SREG4 
CYLINDER H INTO SREG5 
SURFACE # INTO SREG6 
SECTOR U INTO SREG7 
BRKDA4 



BRKDAO' PUTS THE 
DRIVE # INTO SREGO 
CYLINDER # INTO SREG1 
SURFACE # INTO SREG2 
SECTOR # INTO SREG3 
CALL 5 BRKDAO 



MOV 

mv 



RO,-(SP) 

$$R£G34-2»R0 



; PUSH RO ONTO THE STACK 

;SET UP POINTER 
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SEO 0113 



61B2 

6183 

6184 

6185 

6186 

618? 

6188 

6189 

6190 

6191 

6192 

6193 

6194 

6195 

6196 

6197 

6198 

6199 

6200 

6201 

6202 

6203 

6204 

6205 

6206 

6207 

6208 

6209 

621 

621 1 

6212 

6213 

6214 

6215 

6216 

6217 

6218 

6219 

6220 

6221 

6222 

6223 

6224 

6225 

6226 

6227 

6228 

6229 

6230 

6231 

6232 

6233 

6234 

6235 

6236 

6237 



021 064 000403 



021066 01 0046 

021 070 01 2700 001202 



021074 032777 
021 1 02 001034 



020000 160036 BDAR: 



021 1 04 
021 1 06 

021110 

021 1 14 
021 1 20 
021 1 22 
021 1 26 
021 1 30 
021 132 
021 1 34 
021 136 
021 1 40 
021 144 
021 146 
021 1 50 
021 152 
021 156 
021 1 60 
021 1 62 
021 1 66 



01 01 46 

01 0246 

01 3701 001 202 

042701 177760 

01 0140 

01 3701 001202 

006201 

006201 

006201 

006201 

01 01 02 

042702 177776 
01 0240 
006201 

01 01 02 

042702 177400 
01 0240 
000301 

042701 177770 
01 0140 



021 170 012602 

0211 72 01 2601 

021174 01 2600 

021 1 76 000002 



BR 


BDAR 


MOV 


RO,-(SP) 


MOV 


#$REG7+2,R0 


BIT 


#20000 ,<aSwR 


BNE 


2$ 


MOV 


R1 ,-( SP) 


MOV 


R2,-(SP) 


MOV 


$REG10,R1 


BIC 


#177760, R1 


MOV 


R1 ,-( RO) 


MOV 


SREG1 , R1 


ASR 


R1 


ASR 


R1 


ASR 


R1 


ASR 


R1 


MOV 


R1 ,R2 


BIC 


#177776, R2 


MOV 


R2,-( RO; 


ASR 


R1 


MOV 


R1 ,R2 


BIC 


#1 77400 , R2 


MOV 


R2,-(R0) 


SWAB 


R1 


BIC 


#177770, R1 


MOV 


R1 ,-(R0) 


MOV 


(SP)+,R2 


MOV 


(SP)+,R1 


MOV 


(SP)+,R0 


RTI 





PUSH RO ONTO THE STACK 
SET UP POINTER 

INHIBIT TYPEOUT? 

YES, BRANCH TO EXIT POINT 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

GET THE ADDRESS WHICH 

HAS TO BE BROKEN 

EXTRACT SECTOR BITS 0-3 

MOVE SECTOR BITS TO SREG3 OR SREG7 

GET THE DSK-ADRES TO BE BROKEN 

SHIFT RIGHT 4 TIMES 



STORE THIS 

EXTRACCT THE SURFACE BIT 

MOVE SURFACE BIT TO $REG3 OR $REG6 

STORE IT 

EXTRACT THE CYLINDER BITS 

MOVE CYLINDER BITS TO $REG1 OR $REG5 

SWAB HI-LO BYTES 

EXTRACT THE DRIVE # 

MOVE DRIVE # TO SREGO OR $REG4 

RESTORE R2 
RESTORE R1 

RESTORE RO FROM THE STACK 
RETURN FROM INTERRUPT, EXIT THIS 
ROUTINE 









;CALL: 


JSR 


PC, SHFTRT 


021 200 


01 2737 


177763 


021224 SHFTRT: 


MOV 


#-15,2$ 


021206 
021 21 
021214 
021 220 
021 222 


000241 
006066 
005237 
001 373 
000207 


000002 
021224 


1$: 


CLC 
ROR 
INC 
BNE 
RTS 


2(R6) 
2$ 
1$ 
PC 


021224 


000000 




2S: 








. SBTTL SHFTRT : SHIFT RIGHT ROUTINE 

• TH I SPROUT I NE SHIFTS A WORD TO THE RIGHT 13 TIMES. THE WORD TO BE SHIFTED 
•IS PUT ON THE STACK BEFORE ENTERING THIS ROUTINE AND IT IS POPPED UP 
; FROM THE STACK AFTER THE SHIFT HAS BEEN DONE . 



SET UP A COUNT OF 13 
CLEAR THA C BIT 

ROTATE RIGHT THE WORD TO B SHFTD 

SHIFTED 13 TIMES? 

IF NOT LUP BAK & SHIFT 

EXIT FROM THIS SUBROUTINE 
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6238 
6239 
6240 
6241 
6242 
6243 
6244 
6245 
6246 
6247 
6248 
6249 
6250 
6251 
6252 
6253 
6254 
6255 
6256 
6257 
6258 
6259 
6260 
6261 
6262 
6263 
6264 
6265 
6266 
6267 
6268 
6269 
6270 
6271 
6272 
6273 
6274 
6275 
6276 
6277 
6278 
6279 
6280 
6281 
6282 
6283 
6284 
6285 
6286 
6287 
6288 
6289 
6290 
6291 
6292 
6293 



021226 
021232 



01 01 37 001202 
000403 



021234 
021242 
021250 
021252 

021256 104416 



01 3737 
032777 
001467 

004737 020774 



001350 
140000 



001202 

160062 



021260 000207 



021262 01 3705 001350 

021266 005205 

021270 020577 160044 

021274 001455 



021276 01 0537 
021 302 104415 



001202 



021304 01 7737 160030 001202 
021312 104416 



021314 000207 



.SBTTL 

.SBTTL 



CHKHE: CHECK FOR 1 ERR 1 OR 
CHKHE1 : CHECK FOR ' ERR ' OR 



; ; CHKHE 

;THIS ROUTINE CHECKS IF 'HE' OR 1 ERR' BITS IN RKCS ARE SET. IF ANY OF THE 

; TWO BITS ARE SET, THE CONTENTS OF RKCS, ER, DS , AND DA ARE SAVED AND A 

; RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 1 JSR 1 CALL. 

; AT THE TIME OF ENTRY ' DRIVAD 1 CONTAINS THE DISK ADDRESS WHICH IS TO 

; BE BROKEN DOWN INTO DRIVE #, CYLINDER, SURFACE AND SECTOR #. THIS INFORMATION 

; IS SAVED TO BE USED LATER FOR ERROR REPORTING. IF THE BITS ARE NOT SET, 

; RETURN IS MADE TO SKIP THE ERROR MESSAGE. 

; CHKHE 1 

;THIS ROUTINE CHECKS IF 'HE' OR 1 ERR' BITS IN RKCS ARE SET. IF ANY OF THE 
;TWO BITS ARE SET, THE CONTENTS OF RKCS, ER, DS , AND DA ARE SAVED AND A 
•.RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 1 JSR 1 CALL. 
; AT THE TIME OF ENTRY R1 CONTAINS THE DISK ADDRESS WHICH IS TO BE BROKEN 
;DOWN INTO DRIVE #, CYLINDER, SURFACE AND SECTOR #. THIS INFORMATION IS 
; SAVED TO BE USED LATER FOR ERROR REPORTING. IF THE BITS ARE NOT SET, 
; RETURN IS MADE TO SKIP THE ERROR MESSAGE. 

CHKHE1 : 



CHKHE: 
CHE 1 : 



MOV 


R1 ,$REG10 


;SAVE THE DISK ADRES 


BR 


CHE1 




MOV 


DRIVAD, SREG10 


; SAVE THE DISK ADRES 


BIT 


#140000 ,@RKCS 


; IS 'HE' OR 'ERR' BIT SET? 


BEQ 


CRETRN 


;N0 


JSR 


PCGT4RG 


; GET RKCS.ER.DS, DA 


BRKDA4 




;G0 TO 1 BDA4 ' & BREAK CONTENTS 






;$REG10 INTO DR#, CYL, SUR, SEC BITS 


RTS 


PC 


; RETURN TO THE ERROR MESSAGE 


.SBTTL 


CHKDA: CHECK 


IF RKDA INCREMENTED CORRECTLY 



; CHKDA 

;THIS ROUTINE CHECKS IF RKDA INCREMENTED CORRECTLY. IF RKDA INCREMENTED 
; CORRECT LY RETURN IS MADE TO SKIP THE ERROR MESSAGE. 

;IF RKDA DID NOT INCREMENT CORRECTLY, THE EXPECTED AND RECIEVED VALUES 

;0F RKDA ARE SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 

; 1 JSR 1 CALL. 

CHKDA: MOV DRIVAD, R5 ; RKDA SHOULD INCREMENT TO THIS 

; AFTER DATA TRANSFER IS DONE 
CHKDA1 : CMP R5 , @RKDA ; DID RKDA INCREMENT CORRECTLY? 

; IF YES, BRANCH 
; IF NOT , REPORT ERROR 
; GET EXPCTD RKDA 

;G0 TO ' BDAO ' & BREAK CONTENTS OF 
SREG1 INTO DR # .CYL.SUR.SEC BITS 
; GET ACTUAL RKDA 

;G0 TO 1 BDA4 1 & BREAK CONTENTS OF 
;$REG10 INTO DR # , CYL, SUR , SEC BITS 
PC ; RETURN TO THE ERROR MESSAGE 



MOV 
INC 
CMP 
BEQ 

MOV 
BRKDAO 

MOV 
BRKDA4 

RTS 



DRIVAD, R5 
R5 

R5 , g!RKDA 
CRETRN 

R5,$REG10 



PRKDA , SREG1 
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SEQ 0115 











cone 
































ROQQ 








r^ni 


















021 316 


005777 


1 6001 2 




021 322 


00 1 442 














021 324 


01 7737 


1 S0004 




021 332 


01 7737 


1 60002 




021 340 


000207 




















631 








631 1 








r %l 
















631 1 








63 1 5 










021 3^12 


00 ST 7 7 


•a Kf?fl7£E« 
1 3 / 7 Oi* 






00 1 430 














021 350 


004737 


021 002 












02 t 3s4 


000207 




MO*! 
























fit OA 
























6328 








6329 


02 1 356 


005777 


1 §774© 


f 31? 


02 1 362 


001422 






021 384 


01 3737 


001 330 


fil' * 


021 372 


01 7737 


1 57732 




OS 1 400 


000207 




63^4 








6335 








6336 








6337 








6338 
















6340 


A "5 1 Af\*} 
l <tU<£ 


02 2777 


000200 


63 1 


021410 






"340 


^ 1 <4 1 


1 3737 


001 332 


6343 




01 7737 


1 57706 


6344 


021 £ 


VV UdiU ' 




6345 








6348 


021430 


062716 


000002 


6347 


021434 


000207 




6348 








6349 









001 162 
001164 



. SBTTL CHKWC: CHECK IF RKWC OVERFLOWED 

;CHKWC 

;THIS ROUTINE CHECKS IF RKWC OVERFLOWED : 0. IF IT DID A RETURN IS MADE 
;TO SKIP THE ERROR MESSAGE . IF NOT , THE CONTENTS OF RKWC AND RKDA ARE SAVED 
; AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR' CALL. 
CHKWC: TST ©RKWC ; DID WORD COUNT OVERFLOW TO 0? 

BEO CRETRN ;IF YES, BRANCH 

; IF NOT, ERROR 

MOV SRKWC.SREGO ; GET RKWC 

MOV ©RKDA , SREG1 ; GET RKDA 

RTS PC ; RETURN TO THE ERROR MESSAGE 

.SBTTL CHKER: CHECK RKER CONTENTS 

; CHKER 

?THIS ROUTINE CHECKS IF ANY BIT IN RKER SET. IF NOT RETURN IS MADE TO SKIP 
5 THE ERROR MESSAGE. IF ANY BIT IS SET THE CONTENTS OF RKCS, RKER , RKDS ARE 
; SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE. 



CHKER 5 TST 
BEO 



JSR 

RTS 



©RKER 
CRETRN 



PC.GT3RG 

PC 



JDID ANY BIT IN RKER SET? 

;NO, BRANCH 

5 YES , ERROR 

;GO, GET RKCS, ER , DS 

; RETURN TO THE ERROR MESSAGE 



;CHKECLR 

I THIS ROUTINE CHECKS THAT RKER IS CLEAR. IF NOT , THE CONTENTS OF R,;£R 

? ARE SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE "USR* 

•CALL. IF RKER IS CLEAR THE ERROR MESSAGE IS SKIPPED ON RET"RN, 



CHKECLR! TST 
BEO 

001102 MOV 
00 11 64 MOV 
RTS 



0RKER 

CRETRN 
RKIR , SREG0 
*RKER,$REG1 

PC 



ANY BIT IN RKER SET? 
NO 

GET ADRES OF RKER 
GET CONTENTS OF RKER 
RETURN TO THE ERROR MESSAGE 



001162 
001164 



fCHKCCLR 

J THIS ROUTINE CHECKS THAT RKCS IS CLEAR . IF NOT , THE CONTENTS OF RKCS ARE 

5SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE. IF RKCS IS CLEAR THE 

; ERROR MESSAGE IS SKIPPED ON RETURN. 

CHKCCLR: CMP #200, ©RKCS ; IS RKCS CLEAR? 

8EQ CRETRN ;YES 

MOV RKCS.SREGO J SAVE ADRES OF RKCS 

MOV ©RKCS,$REG1 ;SAVE THE CONTENT OF RKCS 

RTS PC ; RETURN TO THE ERROR MESSAGE 

CRETRN; ADD #2 f (SP) ;SKIP ERROR MESSAGE ON 

RTS PC ; RETURN 
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6352 
6353 
6354 
6355 
6356 
635? 
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. SBTTL TSTRWS: WAIT FOR R/W/S RDY ROUTINE 

TSTRWS 

THIS ROUTINE WAITS FOR R/W/S RDY TO SET. WHEN IT SETS* THE RETURN PC 
IS INCREMENTED SO THAT QU RETURN (TO THE MAIN PROGRAM) THE ERROR 
MESSAGE FOLLOWING THE * JSR * CALL IS SKIPPED. IF R/W/S RDY DOES NOT SET 
THEN A RETURN IS MADE TO THE ERROR MESSAGE ( FOLLOWING THE 'USR* CALL ) * 
WAITING TIME IS APPROX. 1040 US FOR 11/20, APPRQX. 208 MS FOR 11/45 



SEQ 011S 



6358 










; CALL s 


JSR 


TSTRWS 




6359 


















6360 


021436 


01 3777 


001350 


157674 


TSTRWS: 


MOV 


DRIVAD ,@RKDA 


; ADRES THE DRIVE 


6361 


021444 


005037 


001366 






CLR 


TIMER 


; INITIALIZE COUNT 


6362 


021450 


032777 


000100 


157650 


1$: 


BIT 


#100,«BRKDS 


;DID R/W/S RDY SET? 


6363 


021456 


001007 








BNE 


2$ 


; YES, BRANCH 


6364 


021460 


005237 


001366 






INC 


TIMER 


;WAIT FOR R/W/S RDY 


6355 


021464 


001371 








BNE 


1$ 


; ERROR IF IT'S NOT SET BY NOW 


6366 


021 46S 


01 7737 


1S7634 


001162 




MOV 


PRKDS , SREGO 


; GET RKDS 


6367 


021474 


000207 








RTS 


PC 


;EXIT (TO ERROR FOO LOWING 1 JSR TSTRWS * ) 


636S 


















6369 


C2147S 


062716 


000002 




2$: 


ADD 


#2,(SP) 


; ADJUST RETURN AORES TO SKIP OVER 


6370 
















; ERROR (FOLLOWING ' JSR TSTRWS 8 ) 


63/1 


021S02 


000207 








RTS 


PC 


;EXIT 



5312 
6573 
6374 
6i 5 
6 .,S 
6 4"? 

6 4 *e 

6 f S 

sjai 

6 4«2 
6j' ? 
6*04 
6j£5 

63S6 
6387 
6300 
608O 
c 3 1 1" 
to391 
b„-» )1 

6^94 
6ci95 



6401 
6«,C 2 



6- 



. SBTTL DRESET ' DRIVE RESET ROUTINE 

1DR6SIT 

? THIS ROUTINI DOES A DRIVE RESET ON THE DRIVE WHOOS£ ADDRESS IS IN 

I RKDA, MULTIPLE RETURN ADDRESSES FOR THIS ROUTINE ARE PROVIDED. 

J IF THERE IS NO ERROR (R/W/S RDY SETS WITHIN CERTAIN TIME) , THEN. BIFORE 

5EX1TNG THIS ROUTINE THE RETURN ADDRESS IS INCREMENTED BY 2, TO SKIP 

i THE ERROR MESSAGE ON RETURN. IF THERE IS AN ERROR, THE 3 REGISTERS (€S,gPl s 9S) 

\ ARE STORED AND THIN A NORMAL EXIT IS MADE FROM THIS ROUTINI TO THE 

*, ERROR MESSAGE FOLLOWING THE CALL FOR THIS ROUTINE. 

; CALL J JSR PC, DRESET 



r ^504 
07' $ 24 



00 SO 3 7 
01 377? 
0S2777 
10 441 4 



001364 

001350 1S7622 
00001S 15780® 



ORESET I CLR COUNT 1 

MOV OR I V AO t f RKDA 

SOW f1S,@RKCS 
CMT * SOY 



032 

001013 
01 2"46 
005216 
CO < "-T 



000100 157572 1$i 



BIT 
BNE 
MOV 
INC 
BNE 
TST 
INC 



#100,fl»RKDS 

2$ 

#-10,-<SP) 

(SP) 

.-2 

(SP)* 
COUNT 1 



UNITIALIZE THE COUNT 
; ADRES THE DRIVE 
; DRIVE RESET , GO 
; THIS IS A CALL FOR 'CN.ROY 5 
; ROUTINE WHICH WAITS FOR CUT 
\ RDY TO "ET . IF CNTSL RDY DOES 
;NOT SET WITHIN 883 MS/ 11-20 
1(178 MS FOR 1 1 -45 WITH BIPOLAR 
; AN ERROR IS REPORTED 

;3I0 R/W/S ROY SET? 

; PUSH COUNT ON SP 
*, COUNT IT DOWN 

; POP UP SP 

;XF NOT WAIT 
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SEQ 0117 



6406 

6407 

6408 

6409 

641 

641 1 

6412 

6413 

6414 

6415 

6416 

641 7 

6418 

6419 

6420 

6421 

6422 

6423 

6424 

6425 

6426 

6427 

6428 

6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 

6438 

6439 

6440 

6441 

6442 

6443 

6444 

6445 

6446 

6447 

6448 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

6456 

6457 

6458 

6459 

6460 

6461 



021554 001364 

021556 004737 020774 

021562 000402 

021564 062716 000002 

021570 000207 



021572 
021600 
021606 
021610 
021614 000401 



01 3777 001350 

032777 001 000 

001403 

004737 021504 



157540 
157520 



021616 
021620 



000002 
032777 



020000 157312 



021626 001373 
021S30 104401 
021634 000406 



021652 
021652 
021654 
021660 
021662 000755 



01 1646 

062716 177776 

104402 



021664 017637 000000 001366 

021672 062716 000002 

021676 005337 001366 

021702 001375 



BNE 

USR 



ADD 
RTS 



1$ 

PC , GT4R0 

2$+4 

#2,@R6 

PC 



; WAITED LONG? 



. SBTTL TSTSIN: CHECK 'SIN' ROUTINE 

" L ON DOING DRIvf RESET R/W/S ROY DDES NOT SET A MESSAGE 

XXXXXxJ^N ^'Sn^O^ERE -TST.SZN' CALL IS LOCATED. 

ADRES THE DRIVE 
IS SIN SET? 



TSTSIN: 



1$: 
2$: 



; ;65$: 

64$: 



MOV 


DRIVAD , @RKDA 


BIT 


#1 000 ,@RKDS 


BED 


1$ 


JSR 


PC , DRESET 


BR 


2$ 


RTI 




BIT 


#SW13,@SWR 


BNE 


1$ 


TYPE 


,65$ 


BR 


64$ 


. ASCII 


/ERROR PC= / 


MOV 


(SP) ,-(SP) 


ADD 


#-2 t (SP) 


TYPOC 




BR 


1$ 



;G0 DO DRIVE RESET 
; REPORT ERROR 



SIM SET 



; INHIBIT TYPEOUT? 
; IF YES, SKIP TYPEOUT 
; ; TYPE ASCIZ STRING 
; ; GET OVER THE ASCIZ 



; GET THE PC WHERE 
;G0 TYPE OUT PC 



' TST.SIN' IS LOCATED 



.SBTTL DELAY: TIME DELAY ROUTINE 



THE CALL FOR THIS 



; DE LAY 

; TH I S ROUTINE PROVIDES 
•.ROUTINE IS AN ENCODED 
;CALL: DELAY 
; THE DELAY PROVIDED IS 

: 1 TF 5 ?HE S USER VaHTS TO CHANGE THE DELAY TIME (EXMP: SHORTER DELAY TO 
•GET A TIGHTER SCOPE LOOP ) THE VARIABLE 'N' FOLLOWING 'DELAY' SHOULD 
• BE CHANGED TO SUIT THE INDIVIDUAL NEED. 



A VARIABLE TIME DELAY. 
'TRAP' INSTRUCTION. „„„ 
N N IS ANY OCTAL NO. FROM 1 TO 177777 

7 ? .5N US (CONVERT N TO DECIMAL) FOR 11/20 



DELA.Y: MOV 

ADD 



DEC 
BNE 



©(SP) .TIMER 
#2, (SP) 



TIMER 

1$ 



GET 1 AMOUNT 1 (N) FOR WHICH 

DELAY IS TO BE PROVIDED 

ADJUST STACK POINTER TO SKIP OVER 'N 

COUNT DOWN TO 
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6462 
6463 
6464 
6465 
6466 
6467 
6468 
6469 
6470 
6471 
6472 
6473 
6474 
6475 
6476 
6477 
6478 
6479 
6480 
6481 
6482 
6483 



6507 
6508 
6509 
6510 
651 1 
6512 
6513 
6514 
6515 
6516 
6517 



021704 000002 



.SBTTL WAT. INT: 



; RETURN TO MAIN PROGRAM 



WAIT FOR INTERRUPT ROUTINE 



;WAT. INT 

;THIS ROUTINE PROVIDES A VARIABLE TIME WAIT LOOP DURING WHICH AN INTERRUPT 
; FROM RK1 1 CAN OCCUR. THE CALL IS AN ENCODED 'TRAP' INSTRUCTION. 



;CALL: 



WAT. INT ,N 



N IS ANY OCTAL NO.* FROM 1 TO 177777 



JWAIT LOOP T IME= APPROX. 7.5N US (CONVERT N TO DECIMAL) FOR 1 1/20 
5APPR0X. 1.5N US FOR 11/45 

JUPON ENTERING THE ROUTINE THE CPU PRIORITY IS DROPPED SO THAT 

;RK1 1 CAN INTERRUPT. NOTE THAT WHEN RK1 1 INTERRUPTS THIS ROUTINE 

;IS EXITED WITHOUT POPPING THE STACK, THIS POPPING IS DONE AFTER GETTING 

;T0 RK1 1 INTERRUPT HANDLER. 

; IF FOR ANY REASON THE WAIT LOOP TIME HAS TO BE CHANGED IT CAN BE DONE 
; BY SIMPLY CHANGING THE VARIABLE 1 N • FOLLOWING THE 'WAT. INT" . 



6484 


021706 


01 7637 


000000 


001366 WATINT: 


MOV 


e(SP) .TIMER 


; GET 1 AMOUNT ' (N) FOR WHICH 


6485 


021714 


062716 


000002 




ADD 


#2, (SP) 


•.WAITING IS TO BE DONE 


6436 














; ADJUST STACK POINTER FOR CORRECT RETURN 


6487 


021720 


01 3746 


001400 




MOV 


RKPRI ,-(SP) 


;DROP CPU PRIORITY SO THAT RK1 1 CAN 


6488 


021724 


01 2746 


021732 




MOV 


<M$,-(SP) 


; INTERRUPT 


6489 


021730 


000002 






RTI 






6490 


021732 


005337 


001365 


1$: 


DEC 


TIMER 


;WAIT FOR RK1 1 TO INTERRUPT 


6491 


021736 


001375 






BNE 


1$ 




6492 














; IF INTERRUPT HAS NOT OCCURED BY NOW 


6493 














; RETURN AND REPORT ERROR 


6494 


021740 


000002 






RTI 




;EXIT 


6495 
















6496 
















6497 
















6498 








JWATIME 








6499 
















6500 


021742 


005000 




WATIME: 


CLR 


RO 




6501 


021744 


005001 






CLR 


R1 




6502 


021746 


005200 




1$: 


INC 


RO 




6503 


021 750 


001 376 






BNE 


1$ 




6504 


021752 


105201 






INCB 


R1 




6505 


021754 


001374 






BNE 


1$ 




6506 


021756 


000207 






RTS 


PC 





.SBTTL CHKCRDY: 



CHECK CONTROL READY 



; ;CH.CRDY 

;THIS ROUTINE WAITS FOR THE CONTROL READY TO SET. IF THE CONTROL READY BIT 
;DOES NOT SET WITHIN A CERTAIN TIME, THEN THE CONTENTS OF RKCS, RKER, RKDS 
", AND RKDA ARE SAVED AND AN EXIT MADE TO THE ERROR MESSAGE FOLLOWING THE 
J ' JSR 1 CALL FOR THIS ROUTINE. 

IF CONTROL READY SETS THEN THE RETURN ADDRESS IS ADJUSTED TO SKIP THE 
; ERROR MESSAGE ON RETURN. 
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6518 








651 9 








6520 








6521 








6522 


021 760 


005037 


001366 


6523 


021 764 


1 05777 


157342 


6524 


021770 


1 00406 




6525 


021 772 


005237 


001366 


6526 


021776 


001372 




6527 


022000 


004737 


020774 


6528 


022004 


000002 




6529 








6530 


022006 


062716 


000002 


6531 


022012 


000002 




6532 








6533 








6534 








6535 








6536 








653? 








6538 








6539 








6540 








6541 








6542 








6543 








6544 








6545 








6546 








6547 








6548 








6549 








6550 








6551 








6552 








6553 








6554 








6555 








6556 








6557 








6558 








6559 


022014 


01 2777 


000001 


6550 


022022 


01 2737 


177500 


6561 


022030 


000402 




6562 


022032 


005037 


001170 


6553 


02203S 


1 05777 


157270 


6564 


022042 


10 0433 




6565 


022044 


005237 


001170 


6566 


022050 


001372 




6567 


022052 


032777 


020000 


6568 


022060 


001 026 




6569 


0.22062 


1 4401 




6570 


0220S4 


001245 




6571 


022068 


104401 


022074 


6572 


022072 


000403 




6S73 
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CHKCRDY: CHECK CONTROL READY 



SEQ 0119 



CALL: CHKCRDY 
ERROR 



CH.CRDY: 

1$: 



TSTB 


§>RKCS 


BMI 


2$ 


INC 


TIMER 


BNE 


1$ 


JSR 


PCGT4RG 


RTI 




ADD 


#2, (SP) 


RTI 





; RETURN HERE IF ERROR 

; RETURN HERE IF NO ERROR 



; CNTRL RDY SET? 

; YES 



:NO, WAIT 
JSAVE RKCS, ER, 



DS, DA 



. SBTTL CON. RESET: 



; ADJUST RETURN ADDRESS TO 
;SKIP ERROR MESSAGE ON RETURN 



CONTROL REST ROUTINE 



CON. RESET 

THIS ROUTINE ISSUES A CONTROL RESET AND WAITS FOR 
THE 'CNTRL RDY' FLAG TO SET. WHEN THE FLAG SETS 
AN EXIT IS MADE OUT OF THE ROUTINE. IF 1 CNTR L-RDY 1 
DOES NOT SET WITHIN A CERTAIN TIME AN ERROR MESSAGE 

CNT RDY DIDN'T SET 

PC=XXXXXX RKCS» YYYYYY 
IS GIVEN. NOTE THAT XXXXXX IS THE PC WHERE 1 CNT . RESET 1 
IS CALLED. 

CALL: CNT. RESET 



OR 'CNT* RDY « 



•SBTTL CNT. RDY: 



WAIT FOR CONTROL READY ROUTINE 



157310 
001 170 



,* CN . RDY 

?THIS ROUTINE WAITS FOR THE CONTROL READY BIT TO SET AND WHEN IT 

? SETS EXITS OUT. IF WITHIN A CERTAIN TIME CNTRL RDY DOES 

;NOT SET AN ERROR IS REPORTED. WAITING TIME IS 883 MS FOR 11/30 

.■175 MS FOR 11/45 WITH BIPOLAR MEMORY. 

; CALL : CNT. RDY 

; ISSUE A CONTROL RESET 
;SET UP COUNT 

;SKIP OVER CN . RDY 



CN.RSTS 



CN . RDY 
1$: 



157080 2$: 



MOV 
MOV 
BR 
CLR 
TSTB 
BMI 
INC 
BNE 
BIT 
BNE 
TYPE 
MSG3 
TYPE 
9R 

. ASCII 



#1 ,§>RKCS 
#-300,$REG3 
CN.RDY+4 
SREG3 

@RKCS 
3$ 

SREG3 
1$ 

#SW13,@SWR 
3$ 



,85$ 

m$ 

<15><12>/PC«/ 



;DID CNT', L-RDY SET? 

; YES, EXIT 

; WAITED LONG? 

; IF NOT, GO BAK & WAIT 

; INHIBIT TYPEOUT? 

I IF YES , SKIP TYPEOUT 



! i TYPE ASCIZ STRING 
; l GET OVER THE ASCIZ 
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ZRKK^ 


PI 1 


21-FEB-78 


08:51 




CNT 5 RDY: 


WAIT FOR CONTROL 


READY ROUTINE 


6574 


022102 








64$; 






6575 


022102 


01 1646 








MOV 


(SP).-(r.o) 




G5' r 6 


022104 


1S2716 


000002 






SUB 


#2, (SP) 




6577 


0221 1 


10 4402 








TYPOC 




;60 TYPE PC IN THE MAIN PROGRAM, 


6578 
















; WHERE ERROR OCCURRED 


6579 


0221 12 


104401 


oaaiao 






TYPE 


,67$ 


; ; TYPE ASCIZ STRING 


6580 


0221 16 


000404 








BR 


66S 


; ; GET OVER THE ASCIZ 


6531 












;67$; .ASCII, 


/ RKCS«/ 




6582 


0221 30 








66$: 






6583 


022130 


01 7746 


157176 






MOV 


@RKCS 9 ~(SP) 


; GET RKCS 


6584 


022134 


104402 








TYPOC 




;G0 TYPE IT 


6585 


















65S6 


022136 


000002 






3$: RTI 




• RETURN FROM THIS 


6587 
















; ROUTINE TO THE MAIN 


6589 
















; PROGRAM 


6589 


















6590 


















6591 












THIS PART OF THE PROGRAM CONTAINS THE COMMON ROUTINES CALLED 


6592 












FROM THE SYSMAC.SML PACKAGE 




6593 


















6594 


















6595 












SBTTL SCOPE HANDLER ROUTINE 




6536 


















6597 
















6598 












*THIS ROUTINE 


CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 


659S 












*AND LOAD THE 


TEST NUMBER(STSTNM) INTO 'HE DISPLAY REG. { DISPLAY<7 : 0> ) 


6600 












* AND LOAD THE 


ERROR FLAG (SERFLG) INTO DISPLAY<1 5: 08> 


6601 












*THE SWITCH OPTIONS PROVIDED BY 


THIS ROUTINE ARE: 


6602 












*SW14«1 


LOOP ON TEST 




6603 












*SW1 1=1 


INHIBIT ITERATIONS 


6604 












*SW09*1 


LOOP ON ERROR 




6605 












*SW08^1 


LOOP ON TEST IN SWR<7:0> 


6606 












*CALL 






6607 












* SCOPE 


-, : SCOPE* IDT 


6603 


















6609 


022140 








SSCOPE: 






6610 


022140 


104407 








CKSWR 




; TEST FOR CHANGE IN SOFT-SOT 


661 ! 


022142 


032777 


040000 


1S6770 


1$: BIT 


#BIT14,#SWR 


; LOOP ON PRESENT TEST? 


6612 


0221 50 


00 11 n 








BNE 


SQVER 


; YES IF SW14=1 


661 3 












##0##START Of 


CODE FOR THE XOR i 


*ESTER*#### 


6614 


022 -5 52 


000416 






SXTSTR: BR 


S$ 


jlF RUNNING ON THE "XOR* TESTER CHANGE 


















; THIS INSTRUCTION TO A "NOP* <NQP«240) 


66''6 


022 I- A 


01 3746 


000004 






MOV 


MERRVEC,-(SP) 


;SAVE THE CONTENTS OF THE ERROR VECTOR 


6617 


022^ "0 


01 2737 


022200 


000004 




mov 


#5$,0#£RRVEC 


;S£T FOR TIMEOUT 


66' 8 


022 6 


005 737 


177080 






TST 


®* 177 060 


;TIWE OUT ON XOR? 


6? 19 


022 -2 


01 2fc: 7 


000004 






MOV 


(SP)+,$#ERRVEC 


; RESTORE THE ERROR VECTOR 


ec:o 


n;? ■ "6 


00 04-M 








BR 


SSVLAD 


;GO TO THE NEXT TEST 


6$: 1 


C2 2, '->C 


02 2*," 6 






I 


sS* CMP 


(5P)+, ($P) + 


; CLEAR THE STACK AFTER A Jim OUT 


6622 




01 


000004 






MQV 


(SP)+ ,»#ERRV£C 


; RESTORE THE ERROR VICTOR 


6e:-3 


0227.CB 


000423 








BR 


7$ 


; LOOP ON THE PRESENT TEST 




02?? 1 








C 


A: J0#**#END OF 


CODE FOR THE XOR 


TESTER***** 


6625 


0222 " 


CS277V 


000400 


1S6?2f 




an 




; LOOP ON SPEC. TEST? 


6626 


C22:- * £ 


001404 








BEO 


2$ 


;8R XF NO 


6627 




-,2 7 73 V 


156714 






CMPB 


»SWR,$TSTNM 


;0N THE RIGHT TEST? $m<7zQ> 


€62fc 




001482 








BEO 


SOVER 


: BR IF YES 


6629 


022230 


105737 


001103 




2$i TSTB 


SERFLG 


;HAS AN ERROR OCCURRED? 
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6630 


022234 


001421 






6631 


022236 


1 23737 


001 1 15 


001 1 03 


6632 


022244 


101015 






6633 


022246 


032777 


001 000 


1 56664 


6634 


022254 


001404 






6635 


022256 


01 3737 


001 1 1 


001 1 06 


6636 


022264 


000443 






6637 


022266 


105037 


001 1 03 




6633 


022272 


005037 


001206 




6639 


022276 


000415 






6640 


022300 


032777 


004000 


156632 


6641 


022306 


00101 1 






6642 


02231 


005737 


001 100 




6643 


022314 


001 406 






6644 


022316 


005237 


001 104 




6645 


022322 


023737 


001 206 


001 1 04 


6646 


022330 


002021 






6647 


022332 


01 2737 


000001 


001 1 04 


6648 


022340 


01 3737 


022410 


001 206 


6649 


022346 


105237 


001 1 02 




6650 


022352 


01 1637 


001 1 06 




6651 


022356 


01 1637 


001 1 1 




6652 


022362 


005037 


001210 




6653 


022366 


1 1 2737 


000001 


001 115 


6654 


022374 


01 3777 


001 1 02 


1 5654-0 


6655 


022402 


01 3716 


001 1 06 




6656 


022406 


000002 






6657 


022410 


000050 






6658 










6659 










6660 










6661 










6662 










6663 










6664 










6665 










6666 










6667 










6568 










6669 










6670 










6671 










6672 


02241 2 


104407 






6673 


022414 


105237 


001 103 




6674 


022420 


001 775 






6675 


022422 


01 3777 


001 102 


156512 


6676 


022430 


005237 


001 1 12 




6677 










6678 


022434 


032777 


000100 


156476 


6679 


022442 


00 1 404 






6680 


022444 


023727 


001 1 12 


000005 


6681 


022452 


101053 






6682 










6683 


022454 


01 1637 


001 1 16 




6684 


022460 


162737 


000002 


001 1 16 


6685 


022466 


1 1 7737 


156424 


001 1 14 





3S ; 


BR IF NO 


CMPB 




MAX. ERRORS FOR THIS TEST OCCURRED? 


BH I 




BR I F NO 


BIT 


ft D 1 1 Ui3 , BOWK , 


LOOP ON ERROR? 


BEQ 


4$ > 


BR IF NO 


MOV 


a; | pcDD « I p ADR 


SET LGwP ADDRESS TO LAST SCOPE 


BR 






CLRB 


3> t K r Lu > 


ZERO THE ERROR FLAG 


CLR 




C LEAR THE NUMBER OF ITERATIONS TO MAKE 


BR 


f$ IMES ' 


ESCAPE VO THE NEXT TEST 


BIT 


ft D I I 1 1 ! CDSrIK , 


I NHI BIT I TERAT I ONS? 


BNE 


1 s > 


BR IF YES 




SPASS , 


IF FIRST PASS OF PROGRAM 


BEQ 




INHIBIT I TERAT IONS 




SICNT ' 


INCREMENT ITERATION COUNT 


tmp 




CHECK THE NUMBER OF ITERATIONS MADE 






BR IF MORE ITERATION REQUIRED 


f n\i 


ft I , J J. UIN 1 i 


REINITIALIZE THE ITERAT ION COUNTER 


MTVU 


SMXCNT , $T IMES ; 


SET NUMBER OF I TERATIONS TO DO 


T W^R 


$ T S T N M ; 


COUNT TEST NUMBERS 


MOV 


I CD \ 1 1 PAnR 


SAVE SCOPE LOOP ADDRESS 


IVIOV 


(SP) , S LPERR 


SAVE ERROR LOOP ADDRESS 


CLR 


SESCAPE ; 


CLEAR THE ESCAPE FROM ERROR ADDRESS 


MOVB 


#1 , SERMAX ; 


ONLY ALLOW 0NE( 1 ) ERROR ON NEXT TEST 


MOV 


STSTNM, ©DISPLAY ; 


DISPLAY TEST NUMBER 


MOV 


SLPADR, (SP) ; 


FUDGE RETURN ADDRESS 


RTI 




FIXES PS 


50 




MAX. NUMBER OF ITERATIONS 



$0VER: 



. SBTTL ERROR HANDLER ROUTINE 



*SW15=1 
*SW13=1 
>SW1 0=1 
>SW09=1 
»SW12 = 1 
>SW06=1 



>G0 TO SERRTYP ON ERROR 



SERROR: CKSWR 

7$: 



HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
TESTING ON SIMULATOR 
LOOP ON ERROR 

CYCLE ON ERROR TO PREVIOUS ' SCOPE' 

DROP DRIVE AFTER MAXIMUM (ALLOWABLE) ERRORS ON THE DRIVE 



-.CHECK FOR SOFTWARE SWITCH REGISTER REQUEST 



INCB 


SERFLG 


;SET THE ERROR FLAG 


BEQ 


7$ 


; DON'T LET THE FLAG GO TO ZERO 


MOV 


STSTNM,€»DISPLAY 


*, DISPLAY TEST NUMBER AND ERROR FLAG 


INC 


SERTTL 


-.COUNT THE NUMBER OF ERRORS 


BIT 


#BIT6,@SWR 


; DESELECT DRIVE SW SET? 


BEQ 


6$ 


;NO 


CMP 


SERTTL, #5 


; MORE THAN 5 ERRORS ON THIS DRIVE? 


BHI 


8$ 


; YES, DESELCT THE DRIVE 


MOV 


(SP) ,$ERRPC 


; GET ADDRESS OF ERROR INSTRUCTION 


SUB 


#2,5ERRPC 




MOVB 


@$ERRPC,$ITEMB 


; STRIP AND SAVE THE ERROR ITEM CODE 
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SEQ 0122 



6686 


022474 


032777 


020000 


156436 




BIT 


#SW13,§>SWR 


; SKIP TYPEOUT IF SET 


6687 


022502 


001004 








BNE 


2$ 


;SKIP TYPEOUTS 


6688 


022504 


004737 


022734 






JSR 


PC,@#$ERRTYP 


;GO TO USER ERROR ROUTINE 


6689 


022510 


104401 


001213 






TYPE 


,SCRLF 




6690 


022514 


023737 


000042 


000046 


2$; 


CMP 


@#42,<a#46 


; ARE WE IN ACT 1 1 AUTO MODE? 


6691 


022522 


001403 








BEQ 


. + 10 


; YES, HALT ON ERROR 


6692 


022524 


005777 


156410 






TST 


§>SWR . 


; HA LT ON ERROR? 


6693 


022530 


100002 








BP L 


3$ 


;SKIP IF CONTINUE 


6694 


022532 


000000 








HALT 




; HA LT ON ERROR! 


6695 


022534 


1 04407 








CKSWR 




; CHECK FOR SOFTWARE SWITCH REGIATER 


6696 


022536 


032777 


010000 


156374 


3$: 


BIT 


#SW12,(5>SWR 


;SW 12 SET? 


6697 


022544 


001402 








BEQ 


.+6 


;NO, BRANCH 


6698 


022546 


01 371 6 


001 1 06 






MOV 


SLPADR, (SP) 


; ADJUST RETURN ADRES FOR SW12 


6699 


022552 


032777 


001 000 


156360 




BIT 


#SW09,@SWR 


; LOOP ON ERROR SWITCH SET? 


6700 


022560 


001402 








BEQ 


4$ 


; BR IF NO 


6701 


022562 


01 3716 


001 1 10 






MOV 


$ LPERR , ( SP ) 


; FUDGE RETURN FOR LOOPING 


6702 


022566 


005737 


001210 




4$: 


TST 


SESCAPE 


; CHECK FOR AN ESCAPE ADDRESS 


6703 


022572 


001402 








BEQ 


5$ 


; BR IF NONE 


6704 


022574 


01 3716 


001210 






MOV 


SESCAPE, (SP) 


; FUDGE RETURN ADDRESS FOR ESCAPE 


6705 


022600 


000002 






5$: 


RTI 




; RETURN 


6706 
















; IF EROR WAS IN LAST TEST (POLL) 


6707 


022602 


005737 


001434 




8$: 


TST 


T56FLG 


6708 
















;DROP ALL THE DRIVES 


6709 


022606 


001407 








BEQ 


10$ 




671 


022610 


104401 


001303 






TYPE 


,MSG5 




6711 


022614 


005037 


001412 






CLR 


DRIVS 




6712 


022620 


022626 








CMP 


(SP)+, (SP)+ 




6713 


022622 


0001 37 


020652 






JMP 


$EOP 




6714 


022626 


01 3746 


001 354 




10$: 


MOV 


DRVPTR ,-(SP) 


;DROP THE DRIVE FROM THE 


6715 


022632 


16271 6 


000002 






SUB 


#2, (SP) 


^SELECTION LIST 


6716 


022636 


01 3746 


001350 






MOV 


DRIVAD.-(SP) 


; DRIVE ADDR TO STACK 


6717 


022642 


004737 


021 200 






JSR 


PC.SHFTRT 


; RIGHT JUSTIFY 


6718 


022646 


042716 


000001 






BIC 


#1 , (R6) 


; MAKE EVEN 


6719 


022652 


062716 


001414 






ADD 


0DRIVO, (SP) 


; POINTS TO TABLE FOR EVEN DRIVE 


6720 


022656 


042776 


1 00000 


000000 




BIC 


#BIT15,#(R6) 


-.TEST REMAINING DRIVE AS RK05E 


6721 


022664 


062716 


000002 






ADD 


#2, (R6) 


; POINT TO ODD 


6722 


022670 


042736 


100000 






BIC 


#BIT15,@(SP)+ 


; TEST AS RK-05E 


6723 


022674 


01 2736 


01 0000 






MOV 


#BIT12,®(SP)+ 


; INDICATE THIS DRIVE DROPPED 


6724 


022700 


1 04401 


001272 






TYPE 


,MSG4 




6725 


022704 


01 3746 


001350 






MOV 


DRIVAD,-(R6) 


; PUSH DRIVE t) ON STACK 


6726 


022710 


004737 


021 200 






USR 


PC.SHFTRT 


; SHIFT I T BEFORE TYPING 


6727 


022714 


104402 








TYPOC 




; TYPE OUT DRIVE ft 


6728 


022716 


1 04401 


001315 






TYPE 


, MSG6 




6729 


022722 


005337 


001412 






DEC 


DRIVS 


; DECREMENT U OF DRIVES PRESNT 


6730 


C22726 


022626 






9$: 


CMP 


(SP)+, (SP)+ 


; RESTORE STACK 


6731 


022730 


000137 


020026 






JMP 


BTEOP 


, GO BACK TO THE END OF PROGRM 


6732 
















; LINKAGE. 


6733 


















6734 










.SBTTL 


ERROR 


MESSAGE TYPEOUT ROUTINE 





6735 
6736 

6737 
6738 
6739 
6740 

6741 



*THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 
(•ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE" ($ERRTB) , 
(■AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
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SEQ 0123 



6742 


022734 


104401 


001213 




TYPE 


, SCRLF 




q 2 o 7 40 


1 0046 






MOV 


R0,-(SP 4 


6744 


022742 


005000 






CLR 


RO 


6745 


022744 


153700 


901 1 14 




BISB 


@#$ITEMB, RO 


6746 


022750 


001004 






BNE 


1$ 


6747 














6748 


022752 


01 3746 


001 1 16 




MOV 


$ERRPC,-(SP 


6749 
6750 


022756 


104402 






TYPOC 


6$ 


6751 


022760 


000426 






BR 


6752 


022762 


005300 




1$: 


DEC 


RO 


6753 


922764 


006300 






ASL 


RO 


6754 


022766 


006300 






ASL 


RO 


6755 


022770 


00630© 






ASL 


RO 


6756 


022772 


062700 


001442 




ADD 


#$ERRTB,RO 


6757 


022776 


01 2037 


023006 




MOV 


(R0)+,2$ 


6758 


023002 


001404 






BEQ 


3$ 


6759 


023004 


1 04401 






TYPE 




6760 


023006 


000000 




2$: 


. WORD 





6761 


023010 


104401 


001213 




TYPE 


, SCRLF 


6762 


023014 


01 2037 


023024 


3$: 


MOV 


(R0)+,4$ 


6763 


023020 


001404 






BEQ 


5$ 


6764 


023022 


104401 






TYPE 




6765 


023024 


000000 




4$; 


, WORD 





6766 


023026 


1 04401 


001213 




TYPE 


, SCRLF 


6767 


023032 


01 1000 




S$: 


MOV 


( RO ) , RO 


6763 


023034 


001004 






BNE 


7$ 


6769 


023036 


01 2600 




6$: 


MOV 


(SP)+, RO 


6770 


023040 


1 04401 


001213 




TYPE 


, SCRLF 


6771 


023044 


000207 






RTS 


PC 


6772 


023046 






7$: 






6773 


023046 


01 3046 






MOV 


@(RO)+,-(SP 


6774 


023050 


104402 






TYPOC 




6775 


023052 


005710 






TST 


(RO) 


6776 


023054 


001 770 






BEQ 


6$ 


6777 


023056 


104401 


023064 




TYPE 


,8S 


6778 


023062 


000771 






BR 


7$ 


6779 


023064 


020040 


000 


8$; 


.ASCIZ 


/ / 


6780 




023070 






.EVEN 




6781 














6782 








.SBTTL 


TYPE ROUTINE 



6783 
6784 
6785 
6736 
6787 
6788 
6789 
6790 
6791 
6792 
6793 
6794 
6795 
6796 
6797 



! "CARRIAGE RETURN 
;SAVE RO 

;PICKUP THE ITEM INDEX 



LINE FEED 8 



; IF ITEM NUMBER IS ZERO , JUST 
; TYPE THE PC OF THE ERROR 
;5AVE SERRPC FOR TYPEOUT 
; ERROR ADDRESS 

;G0 TYPE— OCTAL ASCII(ALL DIGITS) 
! GET OUT 

; ADJUST THE INDEX SO THAT IT WILL 
; WORK FOR THE ERROR TABLE 



FORM TABLE POINTER 
PICKUP "ERROR MESSAGE " POINTER 
SKIP TYPEOUT IF NO POINTER 
TYPE THE " ERROR MESSAGE" 
"ERROR MESSAGE" POINTER GOES HERE 
"CARRIAGE RETURN" & "LINE FEED" 
PICKUP "DATA HEADER " POINTER 
SKIP TYPEOUT IF 
TYPE THE "DATA HEADER" 
"DATA HEADER" POINTER GOES HERE 
"CARRIAGE RETURN" & "LINE FEED- 
PICKUP "DATA TABLE" POINTER 
GO TYPE THE DATA 
RESTORE RO 

"CARRIAGE RETURN" & "LINE FEED- 
RETURN 

SAVE <?>(R0)+ FOR TYPEOUT 

GO TYPE— OCTAL ASCI I ( ALL DIGITS) 

IS THERE ANOTHER NUMBER? 

BR IF NO 

TYPE TW0(2) SPACES 
LOOP 

TW0(2) SPACES 



I************************************************************ 

^ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 

♦THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

*N0TE1 : SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

*N0TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

*N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



"CALLS 

* 1 ) USING A 

* TYPE 

>0R 

> TYPE 

* MESADR 



TRAP INSTRUCTION 
, MESADR 



; ; MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
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6798 


















6799 


023070 


105737 


001 157 




STYPE: 


TSTB 


STPFLG 


; ; IS THERE A TERMINAL? 


6800 


023074 


1 00002 








BPL 


1$ 


; ; BR IF YES 


6801 


023076 


000000 








HALT 




; ; HALT HERE IF NO TERMINAL 


6802 


0231 00 


000407 








BR 


3$ 


; ; LEAVE 


6803 


0231 02 


01 0046 






1$: 


MOV 


R0,-(SP) 


; ;SAVE R i 


6804 


0231 04 


01 7600 


000002 






MOV 


<$>2(SP) , RO 


; ; GET ADDRESS OF ASCIZ STRING 


6805 


0231 1 


1 1 2046 






2$: 


MOVB 


(RO)+,-(SP) 


; ;PUSH CHARACTER TO BE TYPED ONTO STACK 


6906 


0231 12 


00 1005 








BNE 


4$ 


; ; BR IF IT ISN'T THE TERMINATOR 


6807 


0231 14 


005726 








TST 


(SP) + 


• ;IF TERMINATOR POP IT OFF THE STACK 


6808 


0231 16 


01 2600 






60$: 


MOV 


(SP)+,RO 


; ; RESTORE RO 


6809 


0231 20 


062716 


000002 




3$: 


ADD 


#2, (SP) 


• ; ADJUST RETURN PC 


6010 


0231 24 


000002 








RTI 




; ; RETURN 


6811 


0231 26 


122716 


00001 1 




4$: 


CMPB 


#HT, (SP) 


• ; BRANCH IF <HT> 


6812 


0231 32 


001430 








BEQ 


8$ 




6813 


0231 34 


122716 


000200 






CMPB 


#CRLF, (SP) 


, ; BRANCH IF NOT <CRLF> 


6814 


023140 


001006 








BNE 


5$ 




6815 


023142 


005726 








TST 


(SP) + 


, ;POP <CRXLF> EQUIV 


6816 


023144 


104401 








TYPE 




; TYPE A CR AND LF 


681 7 


023146 


001213 








SCRLF 






6818 


0231 50 


105037 


023304 






CLRB 


SCHARCNT 


; CLEAR CHARACTER COUNT 


6819 


0231 54 


000755 








BR 




; GET NEXT CHARACTER 


6820 


023156 


004737 


023240 




5$: 


JSR 


PC.STYPEC 


;G0 TYPE THIS CHARACTER 


6821 


023162 


123726 


001 1 56 




6$: 


CMPB 


SFILLC, (SP)+ 


; IS IT TIME FOR FILLER CHARS.? 


6822 


023166 


001350 








BNE 


2$ 


; IF NO GO GET NEXT CHAR. 


6823 


0231 70 


01 3746 


001 154 






MOV 


SNULL, -(SP) 


; GET # OF FILLER CHARS. NEEDED 


6824 
















; AND THE NULL CHAR. 


6825 


0231 74 


105366 


000001 




7$: 


DECB 


1(SP) 


;DOES A NULL NEED TO BE TYPED? 


6026 


023200 


002770 








BIT 


6$ 


; BR IF NO— GO POP THE NULL OFF OF STACK 


6827 


023202 


004737 


023240 






JSR 


PC , STYPEC 


;G0 TYPE A NULL 


6828 


023206 


105337 


023304 






DECB 


SCHARCNT 


;D0 NOT COUNT AS A COUNT 


6829 


023212 


000770 








BR 


7$ 


; LOOP 


6830 


















6831 










; HORIZONTAL TAB 


PROCESSOR 




6832 


















6833 


023214 


1 1 2716 


000040 




8$: 


MOVB 


#' ,(SP) 


; REPLACE TAB WITH SPACE 


6834 


023220 


004737 


023240 




9$: 


JSR 


PC.STYPEC 


; TYPE A SPACE 


6835 


023224 


132737 


000007 


023304 




BITB 


#7, SCHARCNT 


; BRANCH IF NOT AT 


6836 


023232 


001372 








BNE 


9$ 


; TAB STOP 


6837 


023234 


005726 








TST 


(SP) + 


; POP SPACE OFF STACK 


6838 


023236 


000724 








BR 


2$ 


; GET NEXT CHARACTER 


6839 


023240 


105777 


155704 




STYPEC: 


TSTB 


§>$TPS 


;WAIT UNTIL PRINTER IS READY 


6840 


023244 


1 00375 








BPL 


STYPEC 




6841 


023246 


1 1 6677 


000002 


155676 




MOVB 


2(SP) ,@$TPB 


; LOAD CHAR TO BE TYPED INTO DATA REG. 


6842 


023254 


122766 


000015 


000002 




CMPB 


*CR,2(SP) 


; IS CHARACTER A CARRIAGE RETURN? 


6843 


023262 


00 1 003 








BNE 


1$ 


; BRANCH IF NO 


6844 


023264 


1 05037 


023304 






CLRB 


SCHARCNT 


; YES— CLEAR CHARACTER COUNT 


6845 


023270 


000406 








BR 


STYPEX 


;EXIT 


6846 


023272 


122766 


000012 


000002 


1$: 


CMPB 


#LF,2(SP) 


; IS CHARACTER A LINE FEED? 


6847 


023300 


001402 








BEQ 


STYPEX 


; BRANCH IF YES 


6848 


023302 


105227 








INCB 


(PC) + 


-.COUNT THE CHARACTER 


6849 


023304 


000000 






SCHARCNT 


: . WORD 





; CHARACTER COUNT STORAGE 


6850 


023306 


000207 






STYPL.X: 


RTS 


PC 




6851 


















6852 


















6853 










.SBTTL 


CONVERT 


BINARY TO DECIMAL AND TYPE ROUTINE 



MD-1 1-CZRKKF, RK1 1 BASIC LOGIC TEST 2 MAC Y 1 1 30A( 1052) 21-FEB-78 ' 08:58 PAGE 126 
CZRKKF . P1 1 21-FEB-78 08:51 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



SEQ 012S 



6854 
6855 
6856 
6857 
6858 
6859 
6860 
6861 
6862 
6863 
6864 
6865 
6866 
6867 
6868 
6869 
6870 
6871 
6872 
6873 
6874 
6875 
6876 
6877 
6878 
6879 
6880 
6881 
6882 
6883 
6384 
6885 
6386 
6887 
6388 
6889 
6890 
6891 
6892 
6893 
6894 
6895 
6896 
6897 
6898 
6899 
6900 
6901 
6902 
6903 
6904 
6905 
6906 
6907 
6908 
6909 



♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
-SIGNED DECIMAL (ASCI I ) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
♦NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
♦BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
♦REPLACED WITH SPACES. 
★CALL: 











• * 


MOV 


NUM.-(SP) ; 


PUT THE BINARY NUMBER ON THE STACK 










• * 


TYPDS 


; ;G0 TO THE ROUTINE 


0233 1 








STYPDS: 








023310 


01 0046 








MOV 


RO.-(SP) ; 


PUSH RO ON STACK 


0233 1 2 


010146 








MOV 


R1 ,-(SP) ; 


PUSH R1 ON STACK 


0233 1 4 


01 0246 








MOV 


R2,-(SP) ; 


PUSH R2 ON STACK 


02331 6 


01 0346 








MOV 


R3,-(SP) ; 


PUSH R3 ON STACK 


023320 


01 0546 








MOV 


R5,-(SP) ; 


PUSH R5 ON STACK 


023322 


01 2746 


020200 






MOV 


#20200, -(SP) ; 


SET BLANK SWITCH AND SIGN 


023326 


01 6605 


000020 






MOV 


20(SP) ,R5 ; 


GET THE INPUT NUMBER 


023332 


100004 








BPL 


1$ ; 


BR IF INPUT IS POS. 


023334 


005405 








NEG 


R5 ; 


MAKE THE BINARY NUMBER POS. 


023336 


1 1 2766 


000055 


000001 




MOVB 


#'-,1(S?) ; 


MAKE THE ASCII NUMBER NEG. 


023344 


005000 






1$: 


CLR 


ro ; 


ZERO THE CONSTANTS INDEX 


023346 


01 2703 


023524 






MOV 


#$DBLK , R3 ; 


SETUP THE OUTPUT POINTER 


023352 


1 1 2723 


000040 






MOVB 


# 1 , (R3)+ ; 


SET THE FIRST CHARACTER TO A BLANK 


023356 


005002 






2$: 


CLR 


R2 ; 


CLEAR THE BCD NUMBER 


023360 


01 6001 


023514 






MOV 


SDTBL(RO) ,R1 ; 


GET THE CONSTANT 


023364 


1601 05 






3$: 


SUB 


R1 ,R5 ; 


FORM THIS BCD DIGIT 


023365 


002^02 








BLT 


4$ ; 


BR IF DONE 


023370 


005202 








INC 


R2 ; 


INCREASE THE BCD DIGIT BY 1 


023372 


000774 








BR 


3$ 




023374 


0601 05 






4$: 


ADD 


R1.R5 ; 


ADD BACK THE CONSTANT 


02337G 


005702 








TST 


R2 ; 


CHECK IF BCD DIGIT=0 


023400 


00 1 002 








BNE 


5$ ; 


FALL THROUGH IF 


023402 


105716 








TSTB 


(SP) ; 


STILL DOING LEADING O'S? 


023404 


1 00407 








BMI 


7$ ; 


BR IF YES 


0234C6 


1 0631 6 






5$: 


ASLB 


(SP) ; 


MSD? 


023410 


1 03003 








BCC 


6$ ; 


BR IF NO 


C2341 2 


1 1 6663 


000001 


177777 




MOVB 


1 (SP) ,-1 (R3) ; 


YES — SET THE SIGN 


023420 


052702 


000060 




6$: 


BIS 


# 1 , R2 ; 


MAKE THE BCD DIGIT ASCI I 


023424 


052702 


000040 




7$: 


BIS 


#' ,R2 ; 


MAKE IT A SPACE IF NOT ALREADY A DIGIT 


023430 


1 1 0223 








MOVB 


R2, (R3)+ ; 


PUT THIS CHARACTER IN THE OUTPUT BUFFER 


023432 


005720 








TST 


<R0)+ ; 


JUST INCREMENTING 


023434 


020027 


000010 






CMP 


R0,#10 


CHECK THE TABLE INDEX 


023440 


002746 








BLT 


2$ ; 


GO DO THE NEXT DIGIT 


023442 


003002 








BGT 


8$ ; 


GO TO LX IT 


023444 


01 0502 








MOV 


R5.R2 ; 


GET THE LSD 


023446 


0007C4 








BR 


6$ ; 


GO CHANGE TO ASCI I 


023450 


105726 






8$: 


TSTB 


(SP)+ ; 


WAS THE LSD THE FIRST NON-ZERO? 


023452 


1 00003 








BPL 


9$ ; 


BR IF NO 


023454 


1 1 6663 


177777 


177776 




MOVB 


-1 (SP) ,-2(R3) ; 


YES—SET THE SIGN FOR TYPING 


023462 


105013 






9$: 


CLRB 


(R3) ; 


SET THE TERMINATOR 


023464 


01 2605 








MOV 


(SP)+,R5 ; 


POP STACK INTO R5 


023466 


01 2603 








MOV 


(SP)+,R3 ; 


POP STACK INTO R3 


023470 


01 2602 








MOV 


(SP)+,R2 ; 


POP STACK INTO R2 


023472 


01 2601 








MOV 


(SP)+,R1 ; 


POP STACK INTO R1 
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6910 


023474 


01 2600 


691 1 


023476 


104401 


6912 


023502 


01 6666 


6913 


023510 


01 261 6 


6914 


023512 


000002 


6915 


023514 


023420 


6916 


023516 


001 750 


6917 


023520 


000144 


691 8 


023522 


00001 2 


691 9 


023524 


000004 


6920 






6921 






6922 






6923 






6924 






6925 






6926 






6927 






6928 






6929 






6930 






6931 






6932 






6933 






6934 






6935 






6936 






6937 






6938 






6939 






6940 






6941 






6942 






6943 






6944 






6945 






6946 


023534 


01 7646 


6947 


023540 


1 16637 


6948 


023546 


1 1 2637 


6949 


023552 


062716 


6950 


023556 


000406 


6951 


023560 


1 1 2737 


6952 


023566 


1 1 2737 


6953 


023574 


1 12737 


6954 


023602 


01 0346 


6955 


023604 


01 0446 


6956 


023606 


01 0546 


6957 


02361 


1 1 3704 


6958 


023614 


005404 


6959 


023616 


062704 


6960 


023622 


1 1 0437 


6961 


023626 


1 1 3704 


6962 


023632 


01 6605 


6963 


023636 


005003 


6964 


023640 


006105 


6965 


023642 


000404 
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023524 
000002 
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000000 
000001 

023761 
000002 

000001 
000006 
000005 



023761 

000006 
023760 
023757 
000012 



MOV 
TYPE 

MOV 
MOV 
RTI 

10000. 
1 000. 
100. 
10. 
. BLKW 



(SP)+,RO 
, SDBLK 
2(SP) ,4(SP) 
(SP)+,(SP) 



; ;POP STACK INTO RO 
J ;NOW TYPE THE NUMBER 
; ; ADJUST THE STACK 

; ; RETURN TO USER 



. SBTTL BINARY TO OCTAL (ASCII ) AND TYPE 



******* 

*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
*OCTAL (ASCII) NUMBER AND TYPE IT. 

*SJYPOS— ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

* MOV NUM,-(SP) ; ; NUMBER TO BE TYPED 

* TYPOS ; ; CALL FOR TYPEOUT 

* .BYTE N ; ;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

* -BYTE M ; ;M=1 OR 

* ; ; 1=TYPE LEADING ZEROS 

* ; ;0=SUPPRESS LEADING ZEROS 

*$TYPON ENTER HERE TO TYPE OUT WITH 'HE SAME PARAMETERS AS THE LAST 

*$TYPOS OR $TYPOC 
*CALL: 

* MOV NUM.-(SP) ; ; NUMBER TO BE TYPED 

* TYPON ; ; CALL FOR TYPEOUT 

*$TYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

*CALL: 



023757 STYPOC: 

023761 

02375S STYPON: 



MOV 


NUM.-(SP) 


; ; NUMBER TO BE TYPED 


TYPOC 




; ; CALL FOR TYPEOUT 


MOV 


@(SP) ,-(5P) 


; ; PICKUP THE MODE 


MOVB 


1 (SP) ,$0FILL 


; ; LOAD ZERO FILL SWITCH 


MOVB 


(SP)+,$0M0DE+1 


; ; NUMBER OF DIGITS TO TYPE 


ADD 


#2, (SP) 


; ; ADJUST RETURN ADDRESS 


BR 


STYPON 




MOVB 


#1 ,$OFILL 


I JSET THE ZERO FILL SWITCH 


MOVB 


06.SOMODE+1 


; ;SET FOR SIX(6) DIGITS 


MOVB 


#5,$0CNT 


: ; SET THE ITERATION COUNT 


MOV 


R3,-(SP) 


; ISAVE R3 


MOV 


R4,-(SP) 


; ;SAVE R4 


MOV 


R5,-(SP) 


; ; SAVE R5 


MOVB 


$0M0DE+t„R4 


; ; GET THE NUMBER OF DIGITS TO TYPE 


NEG 


R4 


ADD 


06.R4 


; ; SUBTRACT IT FOR MAX. ALLOWcD 


MOVB 


R4,$0M0DE 


; ;SAVE IT FOR USE 


MOVB 


S0FILL.R4 


; ; GET THE ZERO FILL SWITCH 


MOV 


12(SP) , R5 


; ; PICKUP THE INPUT NUMBER 


CLR 


R3 


; ; C LEAR THE OUTPUT WORD 


ROL 


R5 


; ; ROTATE MSB INTO "C" 


BR 


3$ 


; ;G0 DO MSB 
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6966 


A A J S A A 


0061 05 






2S : 


R0L 


R5 




; FORM THIS DIGIT 




A A *3 £1 >i £S 

02364a 


0061 OS 








R0 L 


R5 






bS68 


023650 


0061 05 










R5 






6969 


023652 


A « A K A ^ 

i b u a 








MOV 


R5 R3 








0236S4 


Aftf 1 rt^l 

oob 1 uj 






3$ ! 


ROL 


S3 




; GET LSB OF THIS DIGIT 


11 


02 36;?8 


^ « ^ n ^ Z 


A A "3 •? R /S 






DECS 


SOMODE 




; TY D E T !-. I S DIGIT? 


69 / 2 


023662 


100016 










7$ 




; S3 IF NO 


6973 


023664 


04 2703 


1 77770 






rtt 


U 1 77770 P*3 




:GET RID OF JUNK 


6974 


023670 


001002 








RNF 






; >C3I rUK U 


6975 


023672 


005704 








TST 


R4 




"SUPPRESS THIS 0? 


6976 


023674 


00 1403 








BEQ 


5S 




; BR I F YES 


6977 


023576 


005204 














; DON 1 T SUPPRESS ANYN ORE 1 S 




023700 




y uu you 






BIS 


# 1 R3 




; MAKE THIS DIGIT ASCII 


KQ7Q 


023704 


OS 2 7 3 


A A A A /J A 




sss » 


BIS 


# ' R3 




; MAKE ASCII IF NOT ALREADY 


6980 


02371 


1 1 0337 


023754 












■ ^AV/P FOB TYPTWfi 




23T 14 


1 0440 1 


2 3 7 S 4 






TYPE 


8$ 




• GO TYPE TH I S DIGIT 


6982 


023720 




0237 5 E 




* ■ 








"COUNT BY 1 


6983 


023724 


003347 










2$ 




• pp tp mod p Tn nn 




023726 


00 2402 








BLT 


6S 




• RR t p nriMP 


KQRK 




00 5204 








INC 


R4 




; INSURE LAST DIGIT ISN'T A BLANK 


KQftfi 




000744 










2$ 




• GD nn THP I 4CT DTfSTT 




023734 


1 250 5 










( SP ) + , R5 




■ RESTORE R5 




023736 


1 2604 








Jz 


( SP ) + t R4 




• RPCTDPP DA. 


6989 


023740 


1 2603 










/ CD \ a. B9 




• D P CTfl D P DO 


6990 


023742 


01 6666 


OvwQOS 


A A AjS 




mn\j 


f CD \ 4 I CD \ 




• CCT TUP CTiri/ cnD &cthdutw<! 




aot ? k2 










MOV 


/ CP \*. 1 IPS 
1. Jt| i or | 






6992 




Art A A A A 








RT I 






; RETURN 




023 754 

















• CTDP A fiP PDD ACriT r . TftTT 
, O 1 UKMUC. run ftOLl I 1. loll 




023765 


AAA 








.BYTE 







• T P RM T MA TDD PDD TV Df DDI IT TMP 




023756 


f A A 

000 






$0CNT " 


. BYTE 







• nrTA i riTfiTT rniiwTPj? 


6996 


023757 


000 








, BYTE 







; ZERO FILL S W I TCH 




023760 


00000 








. WORD 







> KJI IMRC D n C ntCTTC TT> TVDC 
, MUlVlDtN U r Ulul 1 3 II- 1 Irt 
































SBTT t 


TTY INPUT ROUTINE 






7AA^ 




















•taa 
1 ? 










; 




j!**!?!!?!!}!** ******** 
















. ENABL 


LSB 




























7AA/1 
















**** 




7 A t - 










; -SOFTWARE SWITCH REGISTER CHANGE 


ROUTINE. 


7Af - 










;*R0UTINE IS ENTERED FROM THE 


TRAP HANDLER, AND WILL 


7AA7 










;*SERVI 


CE THE 


TEST FOR CHANGE 


IN 


SOFTWARE SWITCH REGISTER TRAP CALL 


?nr a 










; *WH£N 


OPERATING IN TTY FLAG 


ViODE 




7nna 




-2ji . w / 


A 7 « 


AAA *e 


SCKSWR: 


CMP 


#SWREG,SWR 




; IS THE S0FT-SWR SELECTED? 


7 A 1 A 












BNE 


15$ 




; BRANCH IF NO 


7r>11 


"I ^ 7 7 • 
^* ^ 


11-77 ; 


l .0 . 'lb 






TST8 


#$TKS 




; CHAR THERE? 


?ni r 


aa^J ' ° 


1 w J J , ; 1 








BP L 


15$ 




; IF NO, DON'T WAIT AROUND 


701 ^ 

Jz f 


J 2 <4 U 


' ' ' ' 4 


r - ./• , 






M0V8 


@$TKB,-(SP) 




;SAVE THE CHAR 














BIC 


*"C1 77 , ( SP) 




;STRIP-0FF THE ASCI! 


701 ^ 


A a yl A 1 A 




; \ A A A A *7 






CMP 


#7, (SP)+ 




; IS IT A CONTROL G? 


7016 


0240 1 4 


00 1 062 








BNE 


15$ 




;N0, RETURN TO USER 


701? 


? ? 1 H" 




*-(» <J 


eooooi 




CMPS 


SAUT0B,#1 




; ARE WE RUNNING IN AUT0-M0DE? 


7oia 




00 1 4bd 








BEQ 


15$ 




; BRANCH IF YES 


7019 




















7020 


024026 


104401 


C24f47 






TYPE 


,$CNTLG 




;ECH0 THE C0NTR0L-G { "G) 


7021 




;044C 


0-i »0i> 




SGTSWR: 


TYPE 


,$MSWR 




j TYPE CURRENT CONTENTS 
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7022 


024036 


01 3746 


000 1?S 






MOV 


SWREG,~(SP) ; 


SAVE SWREG FOR TYP'r.QUT 


7023 


024042 


1 04402 








TYP0C 




GO TYPE—OCTAL ASCII (ALL DIGITS) 


7024 


024044 


1 0440 1 


024S6S 






TYPE 


, SMNEW 


PROMPT FOR NEW SWR 


7025 


024050 


00 504S 








CLR 


-(SP) ; 


CLEAR COUNTER 


7026 


024052 


005046 








CLR 


-(SP) 1 


THE NEW SWR 


7027 


024054 


105777 


155064 




7$; 


TSTB 


§>$TKS 


CHAR THERE? 


7 028 


024060 


1 00375 








BPL 


7$ ; 


IF NOT TRY AGAIN 


7029 


















7030 


024062 


1 1 7746 


1 55060 






MOV 8 


P$TKB,~(SP) ; 


PICK UP CHAR 


7031 


024066 


042716 


1 7 7600 






BIC 


XTC177, (SP) 


MAKE IT 7-BIT ASCI ' 


7032 


















7033 


















7034 


















7035 


024072 


021627 


000025 




BS: 


CMP 


(SP) , 025 ; 


IS IT A CONTROL-U? 


7036 


024076 


001 005 








BNE 


10$ 


BRANCH IF NOT 


7037 


024100 


10 4401 


024642 






TYPE 


,$CNTLU ? 


YES , ECHO CONTROL-'; {"U) 


7038 


02*1 04 


062706 


000006 






ADD 


#6,SP 


IGNORE PREVIOUS INPUT 


7039 


0241 10 


000757 








BR 


19$ 


LET'S TRY IT AGAIN 


7040 


















7041 


















7042 


0241 12 


02162? 


00001S 




10$ » 


m? 


CSP),#15 ; 


IS IT A <CR>? 


7043 


0241 16 


001022 








BNE 


16$ ; 


BRANCH IF NO 


7044 


024120 ' 


005766 


000004 






TST 


4(SP) ; 


YES, IS IT THE FXRiT CHAR? 


7 045 


024124 


00 1403 








BEQ 


11$ ; 


BRANCH IF YES 


7046 


024126 


01 6677 


000002 


1 550 04 




MOV 


2(SP) ,C>$WR ; 


SAVE NEW SWR 


7047 


0241 34 


062706 


000006 




11$? 


ADD 


*6,SP ; 


CLEAR UP STACK 


7048 


0241 40 


10 4401 


001213 




14$: 


TYPE 


,$CRLF 


ECHO <CR> AND <LF> 


7049 


024144 


123727 


001 135 


000001 




CMPB 


$INTAG,#1 ; 


RE-ENABLE TTY KBD INTERRUPTS? 


7050 


0241S2 


001003 








BNE 


15$ : 


BRANCH IF NOT 


7051 


0241 54 


01 2777 


000100 


1 54762 




MOV 


#100,@$TKS ; 


R£-£N'ABLE TTY KBD INTERRUPTS 


7052 


024162 


000002 






ts$; 


RT I 




RETURN 


7053 


024164 


004737 


023240 






JSR 


PC,$TYPEC • 


ECHO CHAR 


7054 


0241 70 


02162 7 


000060 






CMP 


( SP ) , *6D ■ ; 


CHAR < 0? 


7055 


0241 74 


002420 








BLT 


18$ 


BRANCH IF YES 


7056 


0241 76 


02 1627 


oooos? 






CM P 


<SP),#67 ; 


CHAR > 7? 


7057 


024202 


003015 








BGT 


18$ ; 


BRANCH IF YES 


7058 


024204 


042726 


000060 






BIC 


#60,(SP)+ ; 


STRIP-OFF ASCII 


7059 


024210 


005766 


000002 






TST 


2(SP) ; 


IS THIS THE FIRST CHAR 


7060 


024214 


001403 








BEQ 


17$ ; 


BRANCH IF YES 


7061 


024216 


00631 6 








ASL 


(SP) ; 


NO, SHIFT PRESENT 


70&2 


024220 


006316 








ASL 


iBP) ; 


CHAR OVER TO MAaS 


7063 


024222 


006316 








ASL 


(SP) ; 


ROOM FOR NEW ONc. 


7064 


024224 


005266 






17$s 


INC 


2(SP) 


KEEP COUNT OF CHAR 


7065 


024230 


056616 


177776 






BIS 


-2(SP) t (SP) ; 


SET IN NEW CHAR 


7066 


024234 


000707 








BR 


7$ ; 


GET THE NEXT ONE 


7067 


024236 


104401 


001212 




18$ i 


TYPE 


,$0UES ; 


TYPE ?«.CRXLF> 


7068 


024242 


000720 








BR 


20$ ; 


SIMULATE CONTROL-U 


7069 










.DSABL 


LSB 






7070 


















7071 


















7072 
















7073 










•itHIS 


ROUTINE 


WILL INPUT A SINGLE CHARACTER FROM THF, TTY 


7074 










S«GAU ■ 








7075 












RDCMft 




INPUT A SINGLE CHARACTER FROM THE 


7076 












RETURN 


HERE • 


CHARACTER IS ON JHk STACK 


7077 










* * 






WITH PARITY BIT STRIPPED OFF 
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SEQ 0129 











7 Q 










024244 


011 646 




- 


a O i3 O A P. 




000004 




024 254 


10 5777 


1 54664 




024260 


10 0375 






024262 




1 54660 


70R - 


024270 


042766 


1 77600 


7 A R A 


024276 


00^0^3 


000004 


7AR7 
. ' 










U/n JUD 




1 54632 


7AfiQ 








vaqa 


024314 


1 1 7746 


1 54626 


7AQ1 


024320 


04271 6 


1 77600 


7AQO 


024324 


022627 


000021 


7AQO 


u^; 1 * joy 


00 1 366 




7 n Q A 
7AQ^ 


024332 


000750 








026627 


000004 


7AQR 


024342 


002407 




7AQ7 




026627 


000004 




024352 


003003 




7AQQ 




04 2766 


000040 


71 no 








7101 








71 no 








71 m 








71 
71 
















71 06 








71 07 








71 rift 








71 no 


A O /! o C A 


A A COJK 




71 10 


024370 




024620 


7111 


024374 


022703 


024642 


7112 


024400 








C24402 


1 o 44 1 






024404 








A O /l A A 


122713 


0001 77 


71 1 K 


0244 1 2 


001 022 




7117 


0244 1 4 






7118 


no A/i i k 


00 1007 




71 






0001 34 


71 cm 


0244 26 


1 0440 1 


02461 6 


71 21 


024432 




1 77777 


7122 


244 36 


005303 








020327 


024620 


71 24 


AO &.A AH 






71 o=i 




1 "M 337 


02461 6 


71 26 


024452 


1 440 1 


02461 6 


7127 


024456 


00 0746 




7128 


024460 


005716 




7129 


024462 


001406 




7130 


024464 


1 1 2737 


000134 


7131 


024472 


104401 


024816 


7132 


024476 


005016 




7133 


024500 


122713 


000025 



000004 
000004 
000023 



000140 
000175 
000004 



1$: 
2$: 



MOV 


(SP) ,-(SP) 


; PUSH DOWN THE PC 




MOV 


4(SP) ,2(SP) ; 


; SAVE THE PS 




TSTB 


#$TKS ; 


; WAIT FOR 




BPL 


1S ; 


; A CHARACTER 




MOVB 


@$TKB,4(SP) ; 


; READ THE TTY 




BIC 


#~C<1 77>,4(SP) ; 


; GET RID OF JUNK IF ANY 




CMP 


4(SP) ,023 ; 


; IS IT A CONTROL-S? 




BNE 


3$ ; 


; BRANCH IF NO 




TSTB 


@$TKS ; 


;WAIT FOR A CHARACTER 




BPL 


2$ ; 


; LOOP UNTIL ITS THERE 




MOVB 


@$TKB,-(SP) ; 


; GET CHARACTER 




BIC 


#~C177, (SP) ; 


; MAKE IT 7-BIT ASCII 




CMP 


(SP)+,#21 


; IS IT A CONTROL-Q? 




BNE 


2$ ; 


I lr NUI UlbLAKU II 




BR 


1$ ; 


; YES, RESUME 




CMP 


4(SP) ,#140 ; 


; IS IT UPPER CASE? 




BLT 


4$ ; 


; BRANCH IF YES 




CMP 


4(SP) ,#175 ; 


; IS IT A SPECIAL CHAR? 




BGT 


4$ ; 


; BRANCH IF YES 




BIC 


#40,4(SP) ; 


; MAKE IT UPPER CASE 




RTI 




;GO BACK TO USER 




ROUTINE 


WILL INPUT A STRING FROM THE TTY 




RDLIN 




; INPUT A STRING FROM THE TTY 




RETURN 


HERE ; 


; ADDRESS OF FIRST CHARACTER WILL BE 






.♦TERMINATOR WILL BE A BYTE OF 


ALL 


MOV 


R3.-CSP) 


;SAVE R3 




CLR 


~(SP) ; 


; C LEAR THE RUBOUT KEY 




MOV 


#$TTYIN,R3 ; 


; GET ADDRESS 




CMP 


#$TTYIN+22,R3 ; 


; BUFFER FULL? 




BLOS 


4$ ; 


; BR IF YES 




RDCHR 




;GO READ ONE CHARACTER FROM THE TTY 


MOVB 


(SP)+, (R3) ; 


; GET CHARACTER 




CMPB 


#177, (R3) ; 


; IS IT A RUBOUT 




BNE 


5$ 


; BR IF NO 




TST 


(SP) 


; IS THIS THE FIRST RUBOUT? 




BNE 


6$ ; 


; BR IF NO 




MOVB 


#'\,9$ ; 


; TYPE A BACK SLASH 




TYPE 


,9$ 






MOV 


#-1 , (SP) ; 


;SET THE RUBOUT KEY 




DEC 


R3 ; 


; BACKUP BY ONE 




CMP 


R3,#$TTYIN ; 


; STACK EMPTY? 




BLO 


4$ 


; BR IF YES 




MOVB 


(R3),9S ; 


•.SETUP TO TYPEOUT THE DELETED 


CHAR. 


TYPE 


,9S ; 


;GO TYPE 




BR 


2$ ; 


;G0 READ ANOTHER CHAR. 




TST 


(SP) ; 


•, RUBOUT KEY SET? 




BEQ 


7$ ; 


; BR IF NO 




MOVB 


# '\,9$ ; 


; TYPE A BACK SLASH 




TYPE 


,9$ 






CLR 


(SP) ; 


-.CLEAR THE RUBOUT KEY 




CMPB 


#25, (R3) ; 


;IS CHARACTER A CTRL U? 
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SEQ 0130 



7134 


024504 


001003 








BNE 


8$ ; 


; BR IF NO 


7135 


024506 


104401 


024642 






TYPE 


,$CNTLU ; 


; TYPE A CONTROL "U M 


7136 


024512 


000726 








BR 


1$ ; 


;GO START OVER 


7137 


024514 


122713 


000022 




2$: 


CMPB 


#22, (R3) ; 


; IS CHARACTER A ""R"? 


7138 


024520 


00 1 01 1 








BNE 


3$ ; 


; BRANCH IF NO 


7139 


024522 


105013 








CLRB 


(R3) ; 


; C LEAR i HE CHARACTER 


7140 


024524 


1 04401 


001 213 






TYPE 


,$CRLF ; 


; TYPE A "CR" & "LF" 


7141 


024530 


104401 


024620 






TYPE 


, STTYIN ; 


; TYPE THE INPUT STRING 


7142 


024534 


00071 7 








BR 


2$ ; 


;GO PICKUP ANOTHER CHACTER 


7143 


024536 


1 04401 


001212 




4$: 


TYPE 


,$0UES ; 


; TYPE A ?' 


71 44 


024542 


000712 








BR 


1$ ; 


; C LEAR THE BUFFER AND LOOP 


7145 


024544 


1 1 1337 


024616 




3$: 


MOVB 


(R3) ,9$ 


;ECHO THE CHARACTER 


7146 


024550 


1 04401 


024616 






TYPE 


,9$ 




7147 


024554 


122723 


000015 






CMPB 


#15, (R3)+ ; 


; CHECK FOR RETURN 


7148 


024560 


001305 








BNE 


2$ ; 


; LOOP IF NOT RETURN 


7149 


024562 


105063 


177777 






CLRB 


-1 (R3) 


-.CLEAR RETURN (THE 15) 


7150 


024566 


104401 


001214 






TYPE 


,$LF ; 


; TYPE A LINE FEED 


7151 


C24572 


005726 








TST 


(SP)+ ; 


-.CLEAN RUBOUT KEY FROM THE STACK 


7152 


024574 


01 2603 








MOV 


(SP)+,R3 ; 


; RESTORE R3 


7153 


024576 


01 1 646 








MOV 


(SP).-(SP) ; 


; ADJUST THE STACK AND PUT ADDRESS OF 


7154 


024600 


01 6666 


000004 


000002 




MOV 


4(SP) ,2(SP) ; 


FIRST ASCII CHARACTER ON IT 


7155 


024606 


01 2766 


024620 


000004 




MOV 


#$TTYIN,4(SP) 




7156 


C24614 


000002 








RTI 




; RETURN 


7157 


024616 


000 






9$: 


.BYTE 


; 


; STORAGE FOR ASCII CHAR. TO TYPE 


7158 


024617 


000 








.BYTE 


; 


; TERMINATOR 


7159 


024620 


000022 






STTYIN: 


. BLKB 


22 ; 


; RESERVE 22 BYTES FOR TTY INPUT 


7160 


024642 


052536 


005015 


000 


SCNTLU: 


.ASCIZ 


/~U/<15><12> ; 


; CONTROL "U" 


7161 


024647 


136 


006507 


000012 


SCNTLG: 


.ASCIZ 


/~G/<15><12> ; 


; CONTROL "G K 


7162 


024654 


00501 5 


053523 


020122 


SMSWR: 


.ASCIZ 


<15><12>/SWR ■ / 




7163 


024662 


020075 


000 












7164 


024665 


040 


047040 


0535Q5 


SMNEW: 


. ASCIZ 


/ NEW * / 




7165 


024672 


036440 


000040 












7166 














; CONTROL U, RUBOUT CAPABILITY 


7167 










.SBTTL 


TRAP DECODER 




7168 


















7169 










; ;***** 




************************************************** 


7170 










;*THIS 


ROUTINE 


WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 


7171 










; * AND USE IT TO 


INDEX THROUGH 1 HE 


TRAP TABLE FOR THE STARTING ADDRESS 


7172 










;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


71 73 










;*GO TO 


THAT ROUTINE. 




7174 


















71 75 


024676 


01 0046 






STRAP: 


MOV 


R0,~(SPj ; 


;SAVE RO 


7176 


024700 


01 6600 


000002 






MOV 


2(SP) ,R0 ; 


; GET TRAP ADDRESS 


7177 


024704 


005740 








TST 


-(RO) ; 


; BACKUP BY 2 


7178 


024706 


1 1 1000 








MOVB 


(RO) ,R0 ; 


; GET RIGHT BYTE OF TRAP 


7179 


024710 


006300 








ASL 


RO 


; POSITION FOR INDEXING 


7180 


024712 


01 6000 


024732 






MOV 


STRPAD ( RO ) , RO 


; INDEX TO TABLE 


7181 


024716 


000200 








RTS 


RO ; 


;GO TO ROUTINE 


7182 


















7183 


















7184 










; ;THIS 


IS USE TO HANDLE THE a GET PR I " MACRO 


7185 


















7186 


024720 


01 1646 






STRAP2: 


MOV 


(SP).-(SP) ; 


;M0VE THE PC DOWN 


7187 


024722 


01 6666 


000004 


000002 




MOV 


4(SP) ,2(SP) ; 


;MOVE THE PSW DOWN 


7188 


024730 


000002 








RTI 


; RESTORE THE PSW 


7189 
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CZRKKF , Pi 1 21 


-FEB-78 








1 1 y 1 






7 1 92 






7 1 93 












J, „ . 






< 1 9b 








. . - •, n 


y 2 a 7 20 


.', -.1 
7 1 96 


" m '" "id 


023070 


? 1 9& 


J 24 7 3b 


323b60 






02 3334 


i i , I 




023574 




QdA 744 


03331 








I U 4 




024032 










.f ,f,. 


123762 


1 Jr., 




024S44 








<9fti3 

Li !® 






1 2 1 w 




OS '! 780 








"91 9 




022014 


79 1 T 
791 f 






79 l - 


024762 


022032 








791 ft 
79 1 5 




021 056 








,r] 


■ 3 


:, 1 1 068 












*3 ' 664 


t2A i 






'- 1 1 "i 




C *?, 1 70S 








■>99' 


. .... .... ... 


?2'i572 


1,^ 
























/ 2^9 






.'230 






i «. J 




2.37 


/ 23A 


" J 1 " V ^ 


/ > * 7Z7 


v 2 J >■< 


'1r °, t 2 


1 00*6 






5 I 1 ^6 




"otrti - 
''" , ,/* 


H 0. 46 




.. ^!b0 2u 


11 0346 


J. , 




r ! 0446 


. «.J<3 




J ' 0546 


/ 239 


'-ijO.fc 








11 0S37 






)< " Jjj 






°0u000 


/243 




CC776 


72^4 






7245 
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TRAP TABLE 
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SEQ 0131 



? *TH1S TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES C&UED 
•.•BY THE "TRAP" INSTRUCTION, 



; ROUTINE 

STRPAD: .WORD STRAP2 

STYPE ; jCALLaTYPE 

$TYPOC ; ;CALL=TYPOC 

STYPOS ; ;CALL«TYPOS 

STYPON ; ;CALL*TYPON 

STYPDS ; ;CALL«TYPDS 

5GTSWR ; jCALL»GTSWR 

SCKSWR I $CAU„*CKSWR 

SROCHR ;;CAU«RDCHR 

$milH ;;CALl«RDUN 



TRAP+1 (104401 ) 
TRAP+2( 1Q44C>2) 
TRAP+3( 104403) 
TRAP+4< 104404, 
TRAP+5( 1044Cj; 



r 1 y tyoeojt ro'j:i^ f . 

r*Tt oc"*. Y.'-'se* "* 

TY»r O.'-Au. J'v s< 5ER { ? C< ,^40. »" 
TvpE OCTAL. NU^S^I^ "ER . 

fVPC. -3ECTV*, ,vijM3£P (WITH SISN? 



TRAP+6( 104406) (sE v SUf r 



TRAP+7( 104407) TEST f 0«J OUST 1 .v 
T«A?+10(104410) f TV T-V'ilN ' " ' f ^ 
TRAP+1 1 t 10441 1 i try T "PEIN STRIN3 SOU" XUC 



CH.CROY nCAU®€HKGRDY TRAP+131 10441 2) CHECK CDMTROU RE^OV 

CN.RST nCAlLsCNT . RESET TRAP+1 3 { 1 0441 3 ) CONTROL M$m muTlHt 

CN.RDY 1?CALL«CNT.RDY TRAP+14( 104414) WAIT FDR CNTRU RDY TO SET 

BDAO ? ?CALL«BRKDAO TRAP+1 5 ( 1 0441 5 ) BREAK RKPft INTO OR # , CYt , SUR , S€C tiTS 

BDA4 « ?CALLsBRK0A4 TRAP+16{ 1 0441 6) BREAK ftKDA INTO DP , ^ ir V-'' ^ <• , 

DEU.Y ; |CALL*DELAY TRAP+1 7 { 1 0441 7 ) TIMf. DEUY miitim 

WATINT ;;CALU»WAT.INT- TRAP+20 ( 1 04420 ) WAIT FOR RK1 1 INTERRUPT ROUTES 

TSTSIN ? ?CALL»TST.SIN TRAP+21 ( 1 0442 1) TEST SIN ROUTINE 

. SBTTL POWER DOWN AND UP ROUTINES 



025142 
000340 



154106 
025146 
025050 



000024 
000026 



POWER DOWN 


ROUTINE 






pwrdn; MOV 


#$lLLUP,e#PWRV£C 


? ; SET 


FOR FAST UP 


MOV 


034O f ©#PWRVEC+2 


; 5PR1O 


7 


MOV 


RO,~(SP) 


; : PUSH 


RO ON STACK 


MOV 


R1 ,-(SP) 


; ;PUSH 


R1 ON STACK 


MOV 


R2,-(SP) 


; ;PUSH 


P.- ON STACK 


MOV 


R3,-(SP) 


; ; PUSH 


R3 ON STACK 


MOV 


R4,-(SP) 


; ;push 


R4 ON STACK 


MOV 


RS,-(SP) 


; ;PUSH 


R5 ON STACK 


MOV 


@SWR,-(SP) 


; ; PUSH 


«>SWR ON STACK 


MOV 


SP , SSAVR6 


; «,SAVE 




MOV 


#$PWRUP,##PW8.VSC 


; j SET 


UP VECTOR 


HALT 








BR 




; ; HANG 


UP 
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; POWER UP ROUTINE 



'24 / 


2j>0 ! 50 


. ; ; 1 


'Ji3»42 




SPWRUP.* 


MOV 




• 9F.T "0^ FmST 


7248 


-2501 S 


Tl 3/06 


',25' «6 






MOV 


4SAVPb.SP 


; ;OET SP 


7 24d 


: ::-uo^ 


U oOJ/ 


525 146 






CLR 


SSAVRS 


, MIT L0"!° f-OR "iHF ' "* 


'250 


,/-50bn 


:Jd23/ 








INC 




; ;WAIT. FOR THE INC 


7251 


J 250/ 2 


1 3 5 








SNE 


IS 


;>,0F WORD 


~25* 


UoO 74 


) 1 2677 


54040 






MOV 


(SP) + .e»swr< 


; ; POP STACK INTO ®Sm. 


'153 


'25 1 00 


! 2cOS 








MOV 


(SP) r , y<u 


; , POP STACK INTO P5 


7254 




1 2604 








MOV 


(SP)+, R4 


■ oqp STACK INTO F^' 


^255 


J25104 


J t 2603 








MOV 


(sp)+^;j 


, ;POP JTACK INTO r ' 


7256 


0251 OS 


J 1 2602 








MOV 


{SP 5+ s K2 


' ; POP STACK INTO R2 


'257 


25 , id 


; 1 260'. 








MQV 


(SP)*,fr 4 


;POP STACK INir r-. 


7258 


5 1 ? 


! 2600 








MOM 


«SP)* RC 


; ;POP STACK INTO RO 


725B 


t ^G1 1 4 


, . k'-^Z 


024776 






MOV 


#$PWRDN,<3»VP'"PV£r. 


; ; SET UP THE POWER i.OWl, < 


7260 


025122 


01 273? 


000340 


00002© 




MOM 


/»340.WPWPVE«t2 


; ;PRIQ:7 


,'251 


J 2 Eh 30 


104401 








TYPE 




; REPORT THE POWER F&",i:p:- 


/262 


•2-ji A.i 


i bC 






SPWRMQS 


, WORD 


$»OWER 


j 5 POWER FAIL MESSAGE POINTER- 


/2b3 


C2b i 24 


'J i 2 7 « 6 








MOV 


<PC)+, lS»> 


: ; RESTART a» PFSTRT 


264 


251 36 


004702 






SPWRADs 


.WORD 


PFSTRT 


; ; RESTART ADDRESS 


"2&b 


2&'rt(< 


000002 








RTI 






7.266 


>. 


v'00000 






SILLUP". 


HALT 




I J THE POWER UP SE(vUE f :l -* f C- S T A s 


/267 




00 776 








BR 


.-a 


; 1 BEFORE THE POWER DOW* 


7268 


d-5146 


.30 00 






SSAVR65 







;;PUT T HC SF HERE 


,'269 


02b i 30 


JObU ! b 


047520 


042527 


$POWER: 


,A5CXZ 






7 270 


v!2b1 bb 


00012'! 














,'27 I 












. EVEN 






.'272 


















,-273 


Jib ot) 


J 04/3" 


021 S04 




f check; 


JSR 


PC.DRESET 


; RESETS DRIVE 


7 274 


Jib 1 b4 


'J402ti 








ERROR 


26 




-'275 


0251 6b 


1 U44 3 








CNT. RESET 




.'2 76 


/,'bl /O 


n 372'/ 


30 . ~50 


^2Li30? 




my 


DRI VAD , ORHOLO 


', SAVE DRIVE 


,'277 


02b1 7b 


032737 


, t OOOL 


0013E0 




SIT 


#20000, DRIVAD 


;SEE IF ODD 


/27B 


) k :b20A 


JO 1^0*5 








SEO 


1$ 




/27y 


J2by l f i 


v)4.'73" 


,120000 


03*350 




BIC 


#20000, DRIVAD 


? MAKE EVEN 


*P80 




if Om03 








BR 


2S 




7°81 




'37 


i^Onof 1 


00? 350 


1$: 


ais 


#20000, DR1VA0 


;MAKE ODD 


?2H2 


'.2b22^ 


) J—/7 


, ^ i ?,5C 


2i>4i u6 


as; 


MOV 


DRIVAD,f*RKDA 


IllRIVE ADDR 


flB3 


I2S232 


2 7 77 


*)U001 1 


* 540-72 




MOV 


#11 ,@RKCS 


; DRIVE SEEK 


■2Bn 


).'b2^.J 


441 4 








CNT.RDY 






"28b 


)i52^2 


1 ,?'/ 




'S40/0 




MOV 


DRHOLD,#RKOA 


; OTHER DRIVE 


" 86 


5.'b2E'J 


.U4414 








CNT . ROY 






/2&# 


-. , 5>52 


)J277 ' 




34C4f, 




BIT 


#100,f<RKDS 


; HEAEDS IN MOTIONS 


288 


1. biBC 










BNE 


3S 


;N0 SO RK-050 


7 28& 


u^5?62 


J0b72b 








1ST 


(RS} + 


• YES RK-05F - 


7.290 


j 2 bi» 64 


)' 3: 3/ 


. '5?C2 


■ * 35C 




MOV 


DRHOLD , DRIVAO 


; RESTORE ADDR 


'291 


02527'. 


1U4737 


. ; 1 504 






JSR 


PCORESET 


;WAIT FOR RESET 


/292 


ui:52/b 










ERROR 


.28 




7P93 


U2530C, 


000205 








RTS 


R5 






'i J53C/ 


ooocoo 






ORHOLDs 









7:95 


w^b:.o^ 


00503/ 


1 350 




SI2EF2 


CLR 


DRI VAD 


? START AT DRO 


'296 


^rb3 iC 


'-" 2 700 


COM' 4 






MOV 


#DRIVO,RO 


; TABLE OF AVA U. DRUfS. 


/297 


' » Din 4 


00571 






4$ 1 


TST 


(RO) 


;THIS DRIVE HER'""' 


/298 


;sji6 


( l 0141 S 








BEQ 


2$ 


:N0 


-'299 


t< :5320 


035760 


root.. ' 






TST 


2{R0) 




7300 


( 5^2 4 


(, " 4 1 








BEO 


2$ 


: NO 


""SOI 




4L 7 








JSR 


R5 9 FCHECK 


■ s r. t : f f 'lor-' 
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POWER DOWN AND UP ROUTINES 





025332 


A A A 4 A 








025334 




1 00000 






025340 


052^60 


1 00000 


000002 






005720 






7TAR 


025350 


005720 






7^n7 


025352 




040000 


001 350 


•7^no 


253 60 


022700 


00 1 433 




7309 


025364 


00 3353 






7310 


025366 


000207 






7^1 




















7Ti -a 










7? k 










7^1R 












025370 


045522 


04 1 527 


042440 


7Q1 7 


025376 


047522 


000 1 22 














7 Q 1 Q 










7T0n 


A OK V! A O 


044523 


020 116 


051 5 1 1 


7T01 

7321 


0254 1 


AC 1 /l A 


0521 05 


000 


7322 












025415 




041 113 


0201 01 


7TOA 
7QO^ 


025422 


051 


051 1 1 7 


000 












7TOC 


025427 




0421 1 3 


0201 01 


n 07 




1 07 


0471 1 7 


020 107 




025442 


0431 01 


042524 


0201 22 


7^TA 


025450 


AC 1 AAH 


042523 


000047 












7QT1 


025456 


045522 


051 504 


042440 




025464 


04 7522 


0001 22 




7-3TQ 










7T^A 


0254 70 


AK A 1 DA 
UOU 1 U m 


0201 1 4 


042523 




025476 


A A A 1 OA 
UUU I *£*t 






7^7 












025500 


05 1 1 04 


0201 25 


042523 


•700Q 


025506 


AA A 1 OA 
















7-a in 




045522 


032460 


04 1 040 


tXa 






047040 


O521 1 7 


7^T 


025524 


AC i yl >1 A 


0521 05 


000 














025531 




054522 


04 1 040 


7Q ic 


025536 


0521 11 






7QAR 


025544 


AC 1 A An 


0521 05 




7^« 












r 0^ cc 




04551 7 


042040 


70AQ 




0421 11 


02351 6 


0201 24 


7350 




04 2523 


AAA 1 OA 
UUU I -CH 




7351 










7352 


025570 


042523 


026503 


0471 03 


7353 


025576 


051 124 


042040 


0421 1 1 


7354 


025604 


023516 


020124 


047503 


7355 


025612 


047125 


020124 


047524 


7356 


025620 


030040 


000 




7357 











BR 

BIS 

BIS 

TST 

TST 

ADD 

CMP 

BGT 

RTS 



2$ 

#100000, (R0) 
#100000. 2(R0) 
(R0) + 
(R0) + 

#40000, DRIVAD 
#DRIV7+1 ,R0 
4$ 
PC 



;J MODEL 

; SET SIGN FOR F 

•,B0TH DRIVES 

; NEXT PAIR OF DRIVES 
; NEXT ACTUL ADDR 
; CHECKED ALL? 
;N0T YET 



; ERROR MESSAGES 

. SBTTL ERROR MESSA8ES 

.ASCIZ /RKWC ER0R/ 

.ASCIZ /SIN IS SET/ 

.ASCIZ /RKBA ER0R/ 

.ASCIZ /RKDA WRONG AFTER 'SSE'/ 

.ASCIZ /RKDS EROR/ 

.ASCIZ /DPL SET/ 

. ASCIZ /DRU SET/ 

.ASCIZ /RK05 BIT NOT SET/ 

.ASCIZ /DRY BIT NOT SET/ 

.ASCIZ /SOK DIDN'T SET/ 

.ASCIZ /SEC-CNTR DIDN'T COUNT TO 0/ 
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ESSAGES 

.ASCIZ /SEC-CNTR DIDN'T INCRMNT/ 



-ASCIZ /SEC-COUNTR INCRMENTED WRONG/ 



•ASCIZ /DIDN'T GET SC=SA FOR THIS SECTR/ 



IRKKF . 


,P11 2' 


l-FEB-78 


08:51 




ERROR 


7358 


025623 


123 


041505 


041455 


EM36: 


7359 


025630 


0521 16 


020122 


044504 




7360 


025636 


047104 


052047 


044440 




7361 


025644 


041516 


046522 


0521 1 6 




7362 


025652 


000 








7363 












7364 


025653 


123 


041505 


041455 


EWS37: 


7365 


025660 


052517 


0521 16 


0201 22 




7366 


025666 


0471 1 1 


051 103 


042515 




7367 


025674 


0521 16 


042105 


053440 




7368 


025702 


047522 


043516 


000 




7369 












7370 


025707 


104 


0421 1 1 


023516 


EM40: 


7371 


025714 


0201 24 


042507 


0201 24 




7372 


025722 


041523 


051475 


020101 




7373 


025730 


047506 


020122 


0441 24 




7374 


025736 


05151 1 


051440 


041505 




7375 


025744 


051 124 


000 






7376 












7377 


025747 


105 


047522 


026522 


EM41 : 


7378 


025754 


027522 


027527 


0201 23 




7379 


025762 


042122 


020131 


0441 23 




7380 


025770 


052517 


0421 14 


041040 




7381 


025776 


0201 05 


042523 


000124 




7382 












7383 


026004 


047125 


054105 


042520 


EM43". 


7384 


026012 


052103 


042105 


051040 




7385 


026020 


030513 


020061 


0471 1 1 




7386 


026026 


042524 


051 122 


0501 25 




7387 


026034 


000124 








7388 












7389 


026036 


047103 


051 124 


0201 14 


ERS44: 


7390 


026044 


042122 


020131 


044501 




7391 


026052 


0471 04 


052047 


051440 




7392 


026060 


052105 


040440 


0521 06 




7393 


026066 


051 1 05 


051440 


042505 




7394 


026074 


0201 13 


051 1 17 


042040 




7395 


026102 


020122 


042522 


042523 




7396 


0261 10 


000124 








7397 












7398 


0261 12 


051 1 05 


020122 


051 1 1 7 


EM AS: 


7399 


026120 


044040 


0201 05 


044502 




7400 


026126 


0201 24 


042523 


020124 




7401 


026134 


0471 1 7 


051440 


042505 




7402 


026142 


0201 1 3 


051 1 17 


042040 




7403 


026150 


020122 


042522 


042523 




7404 


026156 


000124 








7405 












7406 


0261 60 


045522 


051 105 


041040 


EM46: 


7407 


026166 


0521 1 1 


020054 


0471 17 




7408 


0261 74 


051440 


042505 


0201 13 




7409 


026202 


051 1 17 


042040 


0201 22 




7410 


026210 


042522 


042523 


000124 




741 1 












7412 


026216 


045522 


051503 


041440 


B\fS47: 


7413 


026224 


047110 


042107 


040440 





• ASCIZ "EROR-R/W/S RDY SHOULD BE SET* 8 



.ASCIZ /UNEXPECTED RK1 1 INTERRUPT/ 



.ASCIZ /CNTRL RDY DIDN'T SET AFTER SEEK OR DR RESET/ 



.ASCIZ /ERR OR HE BIT SET ON SEEK OR DR RESET/ 



.ASCIZ /RKER BIT, ON SEEK OR DR RESET/ 



. ASCIZ /RKCS CHNGD AFTR FUNCTION WAS DONE/ 
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SiO 013 



7414 


026232 


0521 06 


0201 22 


052506 


7415 


026240 


041516 


044524 


0471 1 7 


741 6 


026246 


0S3440 


051 501 


042040 


741 7 


026254 


0471 1 7 


0001 05 




7418 










7419 


026260 


027522 


027527 


0201 23 


7420 


026266 


0421 22 


0201 31 


044504 


7421 


026274 


0471 04 


052047 


041 440 


7422 


026302 


042514 


051 101 


000 


7423 










7424 


026307 


1 22 


053457 


051 457 


7425 


026314 


051 040 


054504 


042040 


7426 


026322 


0421 1 1 


02351 6 


0201 24 


7427 


026330 


042523 


0201 24 


0431 i 


7428 


026336 


051 124 


051440 


042505 


7429 


026344 


0201 1 3 


051 1 17 


042040 


7430 


026352 


0201 22 


042522 


042523 


7431 


026360 


0001 24 






7432 










7433 


026362 


045522 


040504 


041 440 


7434 


026370 


0471 1 


0421 07 


040440 


7435 


026376 


052106 


020122 


042523 


7436 


026404 


045505 


000 




7437 










7438 


026407 


103 


0521 16 


046122 


7439 


026414 


051040 


054504 


042040 


7440 


026422 


0421 1 1 


023516 


0201 24 


7441 


026430 


046103 


020122 


051501 


7442 


026436 


043440 


0201 1 7 


040527 


7443 


026444 


020123 


042523 


0001 24 


7444 
7445 


026452 


047103 


051 124 


0201 14 


7446 


026460 


042122 


0201 31 


044504 


7447 


026466 


0471 04 


052047 


051 440 


7448 


026474 


0521 05 


047440 


0201 1 6 


7449 


C25502 


051 127 


027524 


046506 


7450 


026510 


0201 24 


0521 23 


051 1 01 


7451 


02651 6 


044524 


043516 


043040 


7452 


026524 


047522 


0201 15 


042074 


7453 


026532 


045523 


040455 


05 1 1 04 


7454 


026540 


051505 


000076 




7455 










7456 


026544 


04251 


047440 


0201 22 


7457 


026552 


051 1 05 


020122 


0471 1 7 


7458 


026560 


053440 


0521 22 


043057 


7459 


026556 


0521 15 


051440 


040524 


7460 


026574 


0521 22 


0471 1 1 


0201 07 


7461 


026602 


051 1 06 


046517 


036040 


7462 


02661 


051 504 


026513 


0421 01 


7463 


02661 5 


042522 


037123 


000 


7464 










7465 


026623 


122 


042113 


0201 0- 


7466 


026630 


0471 1 1 


051 103 


0471 15 


7467 


026636 


042124 


053440 


047522 


7468 


026644 


043516 


047440 


0201 16 


7469 


026652 


051127 


026524 


046506 



0: .ASCIZ S R/W/S ROY DIDN'T CLEAR" 



51 : .ASCIZ a R/W/S RDY DIDN'T SET AFTR SEEK OR DR RESET 8 



EM52: .ASCIZ /RKDA CHNGD AFTR SEEK/ 



3: .ASCIZ /CNTRL RDY DIDN'T CLR AS GO WAS SET/ 



EM54: . ASCIZ "CNTRL RDY DIDN'T SET ON WRT/FMT STARTING FROM <DSK-ADRES> 8 



5: .ASCIZ "HE OR ERR ON WRT/FMT STARTING FROM <DSK-ADRES> " 



5: .ASCIZ /RKDA INCRMNTD WRONG ON WRT-FMT/ 
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7470 


026560 


000124 






7471 










7472 


026662 


045522 


041527 


042040 


7473 


026670 


0421 1 1 


023516 


020124 


7474 


026576 


0531 17 


043122 


047514 


7475 


026704 


047440 


0201 16 


051 127 


7476 


026712 


020124 


046506 


000124 


7477 










7478 


026720 


045522 


040502 


044440 


7479 


026726 


041516 


046522 


0521 16 


7480 


026734 


020104 


051 127 


0471 17 


7481 


026742 


020107 


0471 17 


053440 


7482 


026750 


052122 


043040 


0521 15 


7483 


026756 


000 






7484 










7485 


026757 


122 


042513 


020122 


7486 


026764 


042523 


026124 


0471 17 


7487 


026772 


053440 


052122 


047440 


7488 


027000 


020122 


042122 


047440 


7489 


027006 


020122 


046506 


000124 


7490 










7491 


027014 


045522 


041 104 


042440 


7492 


027022 


047522 


000122 




7493 











57: .ASCIZ /RKWC DIDN'T OVRFLO ON WRT FMT/ 



0: .ASCIZ /RKBA INCRMNTD WRONG ON WRT FMT/ 



61 : .ASCIZ /RKER SET , ON WRT OR RD OR FMT/ 



EM62: .ASCIZ /RKDB EROR/ 
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7494 


027026 


045522 


040504 


044440 


7495 


027034 


04 1 51 6 


046522 


0521 16 


7496 


027042 


0201 04 


051 1 27 


0471 17 


7497 


027050 


020107 


0471 1 7 


051040 


7498 


027056 


0201 04 


051 1 1 7 


051040 


7499 


027064 


0201 04 


046506 


0001 24 


7500 










7501 


027072 


045522 


041 527 


042040 


7502 


0271 00 


0421 1 1 


023516 


0201 24 


7503 


027106 


053117 


0431 22 


047514 


7504 


0271 1 4 


047440 


0201 1 6 


0421 22 


7505 


0271 22 


047440 


0201 22 


0421 22 


7506 


0271 30 


043040 


0521 1 5 


000 


7507 










7508 


0271 35 


1 22 


041 1 1 3 


0201 01 


7509 


0271 42 


0471 1 1 


051 1 03 


0471 15 


751 


0271 50 


042 1 24 


053440 


047522 


751 1 


0271 56 


04351 6 


047440 


0201 1 6 


751 2 


0271 64 


0421 22 


047440 


0201 22 


7513 


0271 72 


0421 22 


043040 


052115 


7514 


027200 


000 






7515 










751 6 


027201 


1 1 1 


041 51 6 


051 1 1 7 


751 7 


027206 


042522 


0521 03 


044040 


751 8 


027214 


040505 


042504 


0201 22 


751 9 


027222 


05 1 1 06 


04651 7 


023440 


7520 


027230 


042523 


0521 03 


051 1 17 


7521 


027236 


000047 






7522 










7523 


027240 


040504 


040524 


042440 


7524 


027246 


05 1 1 22 


051117 


000 












7526 


027253 


1 03 


0521 16 


0461 22 


7527 


027260 


05 1 040 


054504 


042040 


7528 


027266 


0421 1 1 


02351 6 


0201 24 


7529 


027274 


042523 


0201 24 


0471 1 7 


7530 


027302 


051 040 


027504 


046506 


7531 


02731 


020 1 24 


0521 23 


051101 


7532 


02731 6 


044524 


04351 6 


043040 


7533 


027324 


047522 


0201 1 5 


042074 


7534 


027332 


045523 


040455 


051 1 04 


7535 


027340 


05 1 505 


000076 




7536 










7537 


027344 


0425 1 


047440 


0201 22 


7538 


027352 


05 1 1 05 


0201 22 


0471 1 7 


7539 


027360 


05 1 040 


027504 


046506 


7540 


027366 


020 1 24 


0521 23 


051 1 01 


7541 


027374 


044524 


043516 


043040 


7542 


027402 


047522 


0201 15 


042074 


7543 


027410 


045523 


040455 


051 1 04 


7544 


02741 6 


051505 


000076 




7545 










7546 


027422 


051 127 


0471 17 


020107 


7547 


027430 


051 104 


0531 1 1 


0201 05 


7548 


027436 


0421 1 1 


044440 


0201 16 


7549 


027444 


045522 


051504 


040440 
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EM63: .ASCIZ /RKDA INCRMNTD WRONG ON RD QR RD FMT/ 



EM64: .ASCIZ /RKWC DIDN'T OVRFLO ON RD OR RD FMT/ 



EM65: .ASCIZ /RKBA INCRMNTD WRONG ON RD OR RD FMT/ 



EM66: .ASCIZ /INCORRECT HEADER FROM 1 SECTOR 1 / 



EM67: .ASCIZ /DATA ERROR/ 

EM70: .ASCIZ a CNTRL RDY DIDN'T SET ON RD/FMT STARTING FROM <DSK-ADRES>" 



SEQ 0137 



.ASCIZ "HE OR ERR ON RD/FMT STARTING FROM <DSK-ADRES>" 



.ASCIZ /WRONG DRIVE ID IN RKDS AFTER SEEK/ 
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SEQ 0138 



7550 


027452 


0521 06 


051 105 


051440 


7551 


027460 


042505 


0001 13 




7552 










7553 


027464 


051110 


053504 


042522 


7554 


027472 


050040 


0461 17 


026514 


7555 


027500 


051 104 


020126 


0421 1 1 


7556 


027506 


041040 


0521 1 1 


0241 23 


7557 


027514 


031461 


030455 


024465 


7558 


027522 


051440 


0461 1 


041 1 04 


7559 


027530 


0201 05 


0461 03 


0001 22 


7560 










7561 


027536 


051 1 10 


053504 


042522 


7562 


027544 


050040 


0461 17 


026514 


7563 


027552 


0471 1 1 


051 124 


05012b 


7564 


027560 


044524 


043516 


042040 


7565 


027566 


044522 


020126 


020043 


7566 


027574 


047516 


020124 


051 120 


7567 


027602 


047123 


000124 




7568 










7569 


027606 


051 104 


0531 1 1 


021440 


7570 


027614 


042040 


0421 1 1 


023516 


7571 


027622 


0201 24 


0471 1 1 


051 124 


7572 


027630 


0501 25 


020124 


0431 01 


7573 


027636 


042524 


020122 


051 1 10 


7574 


027644 


053504 


042522 


050040 


7575 


027652 


0461 1 7 


0001 14 




7576 










7577 


027656 


041523 


020120 


044504 


7578 


027664 


0471 04 


052047 


051440 


7579 


027672 


052105 


040440 


0521 06 


7580 


027700 


051 105 


051440 


042505 


7581 


027706 


0201 13 


040527 


0201 23 


7582 


027714 


047504 


042516 


000 


7583 










7584 


027721 


122 


0421 13 


0201 01 


7585 


027726 


0441 03 


047101 


0421 07 


7586 


027734 


040440 


052106 


051 1 05 


7587 


027742 


042040 


044522 


0201 26 


7588 


027750 


042522 


042523 


0001 24 


7589 










7590 


027756 


040504 


040524 


042440 


7591 


027764 


047522 


020122 


0521 01 


7592 


027772 


053440 


051 1 1 7 


021504 


7593 


030000 


000 






7594 










7595 


030001 


1 03 


0521 16 


046122 


7596 


030006 


051040 


054504 


042040 


7597 


030014 


0421 1 1 


023516 


0201 24 


7598 


030022 


042523 


020124 


0431 01 


7599 


030030 


042524 


020122 


042122 


7600 


030036 


041440 


045510 


000 


7601 










7602 


030043 


105 


051 122 


047440 


7603 


030050 


020122 


042510 


047440 


7604 


030056 


0201 16 


042122 


041440 


7605 


030064 


04551 


000 





EM73: .ASCIZ /HRDWRE POLL-DRV ID BITS(13-15) SHLDBE CLR/ 



EM74: .ASCIZ /HRDWRE POLL-INTRUPTING DRIV # NOT PRSNT/ 



EM75: .ASCIZ /DRIV # DIDN'T INTRUPT AFTER HRDWRE POLL/ 



EM76: .ASCIZ /SCP DIDN'T SET AFTER SEEK WAS DONE/ 



EM77: .ASCIZ /RKDA CHANGD AFTER DRIV RESET/ 



EM100: .ASCIZ /DATA EROR AT WORD*/ 



£1101: .ASCIZ /CNTRL RDY DIDN'T SET AFTER RD CHK/ 



EM102: .ASCIZ /ERR OR HE ON RD CHK/ 



MD-1 1-CZRKKF , RK1 1 BASIC LOGIC 
C2RKKF.P1 1 21-FEB-78 08:51 



TEST 2 



MACY1 1 30A( 1052) 21-FEB-78 ' 08:58 PAGE 140 

ERROR MESSAGES 



SEO 0139 



7606 










7607 


030067 


1 03 


042523 


047440 


7608 


030074 


0201 1 6 


042122 


04 1 440 


7609 


0301 02 


04551 


000 




7610 










761 1 


0301 05 


122 


053513 


0201 03 


7612 


0301 1 2 


044504 


0471 04 


052047 


7613 


0301 20 


047440 


042526 


0431 22 


7614 


030126 


047514 


047440 


0201 1 6 


7615 


0301 34 


0421 22 


041 440 


04551 


7616 


030142 


047440 


020122 


051 1 27 


761 7 


0301 50 


020124 


044103 


0001 1 3 


7618 










7619 


0301 56 


045522 


040504 


044440 


7620 


030164 


041 51 6 


046522 


0521 1 6 


7621 


0301 72 


0201 04 


051 127 


0471 1 7 


7622 


030200 


020107 


0471 1 7 


051 040 


7623 


030206 


0201 04 


044103 


000 1 1 3 


7624 










7625 


030214 


045522 


040502 


041 440 


7626 


030222 


04 0510 


043516 


0201 04 


7627 


030230 


0431 01 


042524 


0201 22 


7628 


030236 


042122 


041440 


0455 1 


7629 


030244 


000 






7630 










7631 


030245 


115 


046505 


051117 


7632 


030252 


020131 


047527 


0421 22 


7633 


030260 


041440 


040510 


04351 6 


7634 


030266 


042105 


040440 


0521 06 


7635 


030274 


051 1 05 


051 040 


0201 04 


7636 


030302 


044103 


0001 13 




7637 










7638 


030306 


0471 03 


051 1 24 


0201 14 


7639 


030314 


042122 


020131 


044504 


7640 


030322 


047104 


052047 


051 440 


7641 


030330 


0521 05 


040440 


0521 06 


7642 


030336 


051 105 


053440 


0521 22 


7643 


030344 


041 440 


045510 


000 


7644 










7645 


030351 


110 


020105 


051 1 1 7 


7646 


030356 


042440 


051 122 


047440 


7647 


030364 


0201 16 


051 127 


0201 24 


7648 


030372 


0441 03 


0001 13 




7649 










7650 


030378 


051 127 


0521 1 1 


0201 OS 


7651 


030404 


044103 


041505 


0201 1 3 


7652 


03041 2 


051 105 


051 1 17 


000 


7653 










7654 


030417 


122 


0421 13 


0201 01 


7655 


030424 


0471 1 1 


051 103 


0471 1 5 


7656 


030432 


0421 24 


053440 


047522 


7657 


030440 


043516 


047440 


0201 16 


7658 


030446 


051 127 


020124 


0441 CI 


7659 


030454 


0001 13 






7660 










7661 


030456 


045522 


040502 


044440 



EM103: .ASCIZ /CSE ON RD CHK/ 

EM104: . ASCIZ /RKWC DIDN'T OVER FLO ON «D CHK OR WRT CHK/ 

EM105: .ASCIZ /RKDA INCRMNTD WRONG ON RD CHK/ 

EM106: .ASCIZ /RKBA CHANGD AFTER RD CHK/ 

EM107: . ASCIZ /MEMORY WORD CHANGED AFTER RD CHK/ 

EIV51 1 : . ASCIZ /CNTRL RDY DIDN'T SET AFTER WRT CHK/ 

EM111 : . ASCIZ /HE OR ERR ON WRT CHK/ 

EM112: . ASCIZ /WRITE CHECK EROR/ 

EM113: . ASCIZ /RKDA INCRMNTD WRONG ON WRT CHK/ 

EM 1 14: .ASCIZ /RKBA INCRMNTD WRONG ON WRT CHK/ 



MD-1 1-CZRKKF, RK1 1 BASIC LOGIC TEST 2 
CZRKKF . P1 1 21-FEB-78 08:51 



MACY1 1 30A(1052) 21-FEB-78 08:58 PAGE 141 
ERROR MESSAGES 



7 662 


030464 


041 51 6 


046522 


0521 16 


7663 


030472 


0201 04 


051 127 


0471 17 


7664 


030500 


0201 07 


0471 17 


053440 


7665 


030506 


052122 


041440 


04551 


7666 


030514 


000 






7667 










7658 


030515 


122 


041 1 13 


0201 01 


7669 


030522 


0471 1 1 


051 103 


0471 1 5 


7670 


030530 


0421 24 


020054 


044527 


7671 


030536 


0441 24 


044440 


040502 


7672 


030544 


051440 


052105 


00 


7673 










7674 


030551 


127 


047522 


043516 


7675 


030556 


046440 


046505 


051 1 17 


7676 


030564 


020131 


047514 


040503 


7677 


030572 


044524 


047117 


041440 


7678 


030600 


04051 


043516 


0421 05 


7679 


030606 


053440 


0521 1 1 


0201 10 


7680 


030614 


041 1 1 1 


020101 


042523 


7681 


030622 


000124 






7682 










7683 


030624 


045522 


030461 


042040 


7684 


030632 


0421 1 1 


023S16 


0201 24 


7685 


030640 


0471 1 1 


051 124 


0501 25 


7686 


030646 


020124 


044127 


0471 05 


7687 


030654 


044440 


042504 


053440 


7688 


030662 


051501 


051440 


052105 


7689 


030670 


000 






7690 










7691 


030671 


122 


030513 


020061 


7592 


030676 


044504 


047104 


052047 


7693 


030704 


044440 


0521 16 


052522 


7694 


030712 


052120 


040440 


0521 OS 


7695 


030720 


051 1 05 


051440 


0201 13 


7698 


030726 


040527 


020123 


0471 1 1 


7697 


030734 


0S21 1 1 


040S11 


043324 


7690 


030742 


0001 04 






7699 










7700 


030744 


041523 


020120 


042523 


7701 


03Q7B2 


020124 


042S02 


047S06 


7702 


0307S0 


042522 


051440 


0425QS 


7703 


030786 


0201 13 


047503 


OS01 15 


7704 


C30774 


042514 


042524 


000104 


7705 










7708 


031002 


045522 


030461 


042040 


7707 


031010 


0421 1 1 


023516 


020124 


7708 


031016 


0471 1 1 


051 124 


0501 25 


7 709 


031024 


020124 


043101 


042524 


7710 


031032 


020122 


045523 


041440 


771 1 


031040 


04651 7 


046120 


05210S 


7712 


031046 


042105 


000 




7713 










7714 


031051 


103 


0521 16 


046122 


7715 


031056 


051040 


051505 


0521 05 


7716 


031 064 


042040 


0421 1 1 


023516 


7717 


031072 


020124 


046103 


040505 



EM1 15: . ASCIZ /RKBA INCRMNTD , WITH IBA SET/ 



EM116: .ASCIZ /WRONG MEMORY LOCATION CHANGED WITH IBA SET/ 



EMI 17: . ASCIZ /RK11 DIDN'T INTRUPT WHEN IDE WAS SET/ 



E^120: .ASCII /RK11 DIDN'T INTRUPT AFTER SK WAS INITIATED/ 



EMI 51 : .ASCIZ /BCP SET BEFORE SEEK COMPLETED/ 



EM122: „A5GIZ /RK1 1 DIDN'T INTRUPT AFTER SK COMPLETED/ 



EM123: . ASCIZ /CNTRL RESET DIDN'T CLEAR ' SCP 1 / 



MD-1 1-CZRKKF, RK11 BASIC LOGIC TEST 2 



CZRKKF . 


P1 1 21 


-FEB-78 


08 : 51 




7718 


031 1 00 


020122 


051 447 


050 1 03 


7719 


031 1 06 


000047 






7720 










7721 


031 1 10 


045522 


030461 


042040 


7722 


031 1 1 6 


0421 1 1 


02351 6 


0201 24 


7723 


031 1 24 


0471 1 1 


051 1 24 


0501 25 


7724 


031 132 


020124 


0431 01 


042524 


7725 


031 140 


0201 22 


0421 22 


042040 


7726 


031 146 


0471 1 7 


0001 05 




7727 










7728 


031 1 52 


047 1 03 


0511 24 


020 114 


7729 


031 1 60 


042522 


042523 


0201 24 


7730 


031 1 66 


044504 


0471 04 


052047 


7731 


031 1 74 


041440 


051 1 1 4 


051 04u 


7732 


031202 


043505 


051 51 1 


051 1 24 


7733 


031210 


000 






7734 










7735 


03121 1 


1 22 


03051 3 


020061 


7736 


031 21 6 


044504 


0471 04 


052047 


7737 


031224 


044440 


0521 16 


052522 


7738 


031232 


052120 


040440 


020 1 24 


7739 


031240 


050103 


0201 25 


042514 


7740 


031246 


042526 


0001 14 




7741 










7742 


031 252 


045522 


030461 


044440 


7743 


031 260 


0521 1 6 


052522 




7744 


031266 


0421 05 


040440 


0201 24 


7745 


031274 


051 127 


0471 1 7 


020 1 07 


7746 


031302 


0501 03 


0201 25 


042514 


7747 


031310 


042526 


0001 1 4 




7748 










7749 


031 31 4 


042447 


051 1 22 


041 040 


7750 


031 322 


0521 1 1 


020047 


044504 


7751 


031 330 


0471 04 


052047 


051 440 


7752 


031336 


0521 05 


044440 


020 1 1 6 


7753 


031 344 


045522 


051 1 05 


000 


7754 










7755 


031 351 


1 1 


0201 05 


- 

051 1 1 7 


7756 


031 356 


042440 


051 1 22 


042040 


7757 


031 364 


0421 1 1 


02351 6 


0201 24 


7758 


031 372 


042523 


0001 24 




7759 










7760 


031 376 


045522 


051 1 05 


042440 


7761 


031404 


047522 


000122 




7762 










7763 


031410 


0541 1 6 


0201 03 


044502 


7764 


031416 


020124 


044504 


047 1 04 


7765 


031424 


052047 


051 440 


0521 05 


7766 


031432 


000 






7767 










7768 


031433 


1 22 


03051 3 


020061 


7769 


031 440 


044504 


U^t A 1 U*t 




7770 


031446 


044440 


0521 16 


052522 


7771 


031454 


052120 


047440 


0201 16 


7772 


031462 


047523 


0521 06 


042440 


7773 


031470 


047522 


000122 





MACY11 30A( 1052) 
ERROR MESSAGES 



21-FEB-78 08: 58 PAGE 142 



SEO 0141 



EM124: .ASCIZ /RK1 1 DIDN'T INTRUPT AFTER RD DONE/ 



•ASCII /CNTRL RESET DIDN'T CLR REGISTR/ 



EM126: .ASCIZ /RK11 DIDN'T INTRUPT AT CPU LEVEL/ 



.ASCIZ /RK11 INTRUPTED AT WRONG CPU LEVEL/ 



.ASCIZ /'ERR BIT 1 DIDN'T SET IN RKER/ 



.ASCIZ /HE OR ERR DIDN'T SET/ 



.ASCIZ /RKER EROR/ 

.ASCIZ /NXC BIT DIDN'T SET/ 



.ASCIZ /RK1 1 DIDN'T INTRUPT ON SOFT EROR/ 



MD-1 1-CZRKKF, RK1 1 BASIC LOGIC TEST 2 
CZRKKF . P1 1 21-FEB-78 08:51 
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ERROR MESSAGES 



SEO 0142 



7774 














7775 


031474 


04251 5 


020130 


044502 


EM135: 


•ASCIZ 


7776 


031502 


051524 


044440 


041516 






7777 


031510 


046522 


0521 16 


0201 04 






7778 


031516 


051 127 


0471 17 


026507 






7779 


031524 


045522 


051503 


000 






7780 














7781 


031531 


127 


051520 


047040 


EM137: 


.ASCIZ 


7782 


031536 


0521 17 


041440 


042514 






7783 


031544 


051 101 


000 








7784 














7785 


031547 


1 04 


052101 


0201 01 


EW140: 


•ASCIZ 


7786 


031554 


051 105 


051 1 1 7 


047440 






7787 


031562 


0201 16 


051 124 


0471 01 






7788 


031570 


0431 23 


051 1 05 


043040 






7789 


031576 


047522 


0201 15 


044504 






7790 


031604 


045523 


052040 


0201 17 






7791 


C31612 


052124 


000131 








7792 














7793 


031516 


042047 


044522 


020126 


EM141 : 


•ASCIZ 


7794 


031624 


023443 


050040 


042522 






7795 


031632 


042523 


0521 16 


020054 






7796 


031640 


052502 


020124 


047516 






7797 


031646 


0201 24 


0471 1 1 


044504 






7798 


031654 


040503 


042524 


0001 04 






7799 


031662 


047040 


020117 


052502 


EM 142: 


•ASCIZ 


7800 


031670 


054523 


047440 


0201 16 






7801 


031676 


0521 1 7 


042510 


020122 






7802 


031704 


04051 


0431 14 


047440 






7803 


031712 


020106 


045522 


030055 






7804 


031720 


043065 


000 








7805 














7806 














7807 














7808 














7809 














7810 




031724 








. EVEN 


781 1 














7812 












. SBTTL 


7813 














7814 


031724 


001 1 16 


001 162 


000000 


DT1 : 


. WORD 


7815 














7816 


031732 


001116 


001 162 


001 1 64 


DT2: 


. WORD 


7817 


031740 


000000 










7818 














7819 


031742 


001 1 16 


001 162 


001 164 


DT20: 


• WORD 


7820 


031750 


001 166 


001 1 70 


000000 






7821 














7822 


031756 


001 1 16 


000000 




DT21 : 


. WORD 


7823 














7824 


031762 


001 1 16 


001 162 


001 1 64 


DT26: 


• WORD 


7825 


031 770 


001 166 


000000 








7826 














7827 


031774 


001 1 16 


001 162 


001164 


DT54: 


• WORD 


7828 


032002 


001 166 


001 170 


001 172 






7829 


032010 


001 174 


0011 78 


001200 







EM140: .ASCIZ /DATA EROR ON TRANSFER FROM DISK TO TTY/ 



WORD $ERRPC,$REG0,$REG1 , SREG2 , SREG3 , 



WORD $ERRPC,$REG0,$REG1 , $REG2 , SREG3 , $REG4,$REG5,$REG6,$R£G7,Q 



MD- 11 -CZRKKF, HK1 1 3ASIC LOGIC TEST 2 MACY1 1 30A(1052) 21-FEB-78 08:58 PAGE 144 

CZRKKF . p 1 1 21-FEB-78 08:51 ERROR DATA POINTERS SEQ 0143 



7830 


032016 


000000 






7831 










7832 










7833 










7834 










7835 










7836 










7837 


032020 


020040 


041520 


020040 


7838 


032026 


051040 


043505 


0421 01 


7839 


032034 


0201 04 


020040 


051040 


7840 


032042 


041505 


042126 


000 


7841 










7842 


032047 


040 


050040 


0201 03 


7843 


032054 


020040 


042440 


0501 30 


7644 


032062 


052103 


020040 


051 040 


7845 


032070 


041505 


042126 


000 


7846 










7847 


032075 


040 


050040 


0201 03 


7848 


0321 02 


020040 


051 040 


041 505 


7849 


0321 10 


042126 


000 




7850 










7851 


0321 13 


040 


050040 


0201 03 


7852 


032120 


020040 


051040 


041 51 3 


7853 


032126 


020123 


020040 


051 040 


7054 


0321 34 


042513 


020122 


020040 


7855 


032142 


051040 


053513 


0001 03 


7856 










7857 


032150 


020040 


041520 


000 


7858 










7859 


032155 


040 


050040 


0201 03 


7860 


0321 62 


020040 


020040 


045522 


7861 


0321 70 


051503 


020040 


020040 


7862 


0321 76 


045522 


051 105 


020040 


7863 


032204 


020040 


045522 


051504 


7864 


032212 


000 






7865 










7866 


032213 


040 


050040 


0201 03 


7867 


032220 


020040 


020040 


045522 


7868 


032226 


051504 


000 




7869 










7870 


032231 


040 


050040 


0201 03 


7871 


032236 


020040 


042523 


026503 


7872 


032244 


047103 


051 124 


000 


7873 










7874 


032251 


040 


050040 


0201 03 


7875 


032256 


020040 


020040 


051 1 20 


7876 


032264 


0471 23 


020124 


047040 


7877 


032272 


052130 


041455 


0521 16 


7878 


032300 


000 






7879 










7880 


032301 


040 


050040 


0201 03 


7881 


032306 


020040 


051440 


041505 


7882 


032314 


047524 


020122 


020040 


7883 


032322 


045522 


051504 


000 


7884 










7885 


032327 


040 


050040 


020103 



DH21 : 
DH30: 



. SBTTL ERROR HEADERS 

.ASCIZ / PC REGADD RECVD/ 

.ASCIZ / PC EXPCT RECVD/ 

.ASCIZ / PC RECVD/ 

.ASCIZ / PC RKCS RKER RKWC/ 



. ASCIZ / PC/ 

.ASCIZ / PC RKCS RKER RKDS/ 



.ASCIZ / PC RKDS/ 



.ASCIZ / PC SEC-CNTR/ 



.ASCIZ / PC PRSNT NXT-CNT/ 



.ASCIZ / PC SECTOR RKDS/ 



. ASCIZ / PC RKCS RKER RKDS RKDA/ 



MD-1 1-CZRKKF, RK1 1 BASIC LOGIC TEST 2 
CZRKKF . P1 1 21-FEB-78 08: 51 
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SEQ 0144 



7886 


032334 


020040 


051040 


041513 


7887 


032342 


0201 23 


020040 


051040 


7888 


032350 


04251 3 


0201 22 


020040 


7839 


032356 


051 040 


0421 13 


020123 


7890 


032364 


020040 


051 040 


0421 13 


7891 


032372 


0001 01 






7892 










7893 


032374 


020040 


041520 


020040 


7894 


032402 


020040 


045522 


051503 


7895 


032410 


020040 


020040 


045522 


7896 


032416 


051 1 05 


020040 


020040 


7897 


032424 


045522 


051504 


020040 


7898 


032432 


020040 


045522 


040504 


7899 


032440 


020040 


042040 


053122 


7900 


032446 


027043 


027056 


041 456 


7901 


032454 


0461 31 


036056 


051504 


7902 


032462 


026513 


042101 


051522 


7903 


032470 


027076 


052523 


0271 22 


7904 


032476 


051456 


041505 


000 


7905 










7906 


032503 


040 


041520 


020040 


7907 


032510 


0541 05 


041520 


020072 


7908 


032516 


051 1 04 


020043 


020040 


7909 


032524 


054503 


0201 14 


020040 


7910 


032532 


020040 


052523 


0201 22 


791 1 


032540 


020C40 


051440 


041505 


7912 


032545 


020040 


042522 


0531 03 


7913 


032554 


020072 


051 104 


020043 


7914 


C32562 


020040 


054503 


0201 14 


7915 


032570 


020040 


020040 


052523 


7916 


032576 


020122 


020040 


020040 


7917 


032604 


042523 


000103 




7918 










7919 


032610 


020040 


041520 


020040 


7920 


032616 


020040 


045522 


041527 


7921 


032624 


020040 


051 040 


0421 13 


7922 


032632 


000101 






7923 










7924 


032634 


020040 


041520 


020040 


7925 


032642 


020040 


042523 


0521 03 


7926 


032650 


020122 


020040 


0541 05 


7927 


032656 


041520 


020124 


020040 


7928 


C32664 


042522 


053103 


0001 04 


7929 










7930 


032672 


020040 


041520 


020040 


7931 


032700 


020040 


054105 


041520 


7932 


032706 


0201 24 


020040 


042522 


7933 


032714 


0531 03 


020104 


042040 


7934 


032722 


045523 


040455 


051 104 


7935 


032730 


000123 






7936 










7937 


032732 


020040 


041520 


02004C 


7938 


032740 


020040 


020040 


051 1 04 


7939 


032748 


053111 


021440 


000 


7940 










7941 


032753 


040 


050040 


020103 



.ASCIZ / PC RKCS RKER RKDS RKDA DRV# CYL.<DSK-ADRS>.SUR. .SEC/ 



.ASCIZ / PC EXPC: DR# CYL SUR SEC RECV: DR# CYL SUR SEC/ 



•ASCIZ / PC RKWC RKDA/ 



.ASCIZ / PC SECTR EXPCT RECVD/ 



. ASCIZ / PC 



.ASCIZ / PC 



EXPCT RECVD DSK-ADRS/ 



DH100; . asciz / pc mm # expct recvd/ 
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ERROR HEADERS 



SE0 0145 



7942 


032760 


053440 


0511 17 


0201 04 


7943 


032766 


020043 


020040 


0541 05 


7944 


032774 


04 1 520 


020124 


020040 


7945 


033002 


042522 


0531 03 


0001 04 


7945 










7947 


033010 


020040 


041520 


020040 


7948 


033016 


051040 


042513 


0001 22 


7949 










795C 


033024 


020040 


041520 


020040 


7951 


033032 


051040 


041505 


0421 26 


7952 


033040 


020040 


051040 


041513 


7953 


033046 


000123 






7954 










7955 


033050 


020040 


041520 


020040 


7956 


033056 


020040 


046040 


041517 


7957 


033064 


020040 


020040 


0541 05 


7958 


033072 


041520 


020124 


020040 


7959 


0331 00 


042522 


0531 03 


000104 


7960 










7961 


033106 


020040 


041520 


020040 


7962 


0331 14 


051040 


041513 


0001 23 


7963 










7964 


0331 22 


020040 


041520 


020040 


7965 


0331 30 


020040 


042514 


042526 


7966 


033136 


0201 14 


020040 


051040 


7967 


033144 


041513 


000123 




7968 










7969 


033150 


020040 


041520 


020040 


7970 


033155 


020040 


051040 


041513 


7971 


0331 64 


0201 23 


020040 


051040 


7972 


0331 72 


042513 


020122 


042440 


7973 


033200 


051 122 


041040 


0521 1 1 


7974 


033206 


000 






7975 










7976 


033207 


040 


050040 


0201 03 


7977 


033214 


020040 


020040 


045522 


7978 


C33222 


051503 


020040 


020040 


7979 


033230 


045522 


051 105 


000 


7980 










7981 


033235 


040 


050040 


020103 


7982 


033242 


020040 


020040 


045522 


7983 


033250 


051503 


020040 


020040 


7984 


033256 


045522 


051 1 05 


020040 


7985 


033264 


020040 


045522 


040504 


7986 


033272 


000 






7987 










7988 


033273 


040 


050040 


0201 03 


7989 


033300 


020040 


042440 


050130 


7S90 


033306 


052103 


020040 


051040 


7991 


033314 


041505 


042126 


020040 


7992 


033322 


020040 


045522 


040502 


7933 


033330 


020040 


020040 


045522 


7994 


033336 


051503 


000 




7995 










7996 










7997 




033342 







DH103: .ASCIZ / PC RKER/ 

DH104: .ASCIZ / PC RECVD RKCS/ 

DH107: .ASCIZ / PC LOC EXPCT RECVD/ 

DH1 17: .ASCIZ / PC RKCS/ 

DH126: .ASCIZ / PC LEVEL RKCS/ 

DH130: .ASCIZ / PC RKCS RKER ERR BIT/ 

DH131 : .ASCIZ / PC RKCS RKER/ 

DH133: .ASCIZ / PC RKCS RKER RKDA/ 

DH140: .ASCIZ / PC EXPCT RECVD RKBA RKCS/ 
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7993 ; DATA BUFFER 

7999 

8000 033342 000400 OUTBUF: . BLKW 256. ;THIS 256 WORD BUFFER IS FOR 

8001 ; DATA TRANSFERS FROM AND 

8002 ;T0 THE DISK. 

8003 

8004 000001 • END 
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CROSS REFERENCE TABLE ~ USER SYMBOLS SEQ 014? 



B A D I N T 


004600 


21 08 


21 360 


4643 


4688 


4707 


4718 


4798 


4806 


4895 


4904 


5548 




3ADTM0 


004534 


2043 


2106 


21 1 70 


5657 


5661 


















021 74 


61 82 


61870 






















p^AQ 




61 80# 


72 1 6 






















3DA4 


021 066 


61 840 


721 8 
























00000 1 


9930 


2002 


2006 


2010 


2270 


5904 














~*TTOO - 


000001 


9830 


993 






















V T 1 " 


C 00 02 


9820 


992 






















PTT09 - 


000004 


98 1 


99 1 






















R!Tfi n - 


AAfiA 1 n 

UUUU i u 


9800 


990 






















RTTH4 - 




9790 


989 






















RIT05 " 


0OC04O 


9780 


988 






















81 T06 = 


001 00 


977* 


987 
























000200 


976* 


986 






















3 I T S = 


000400 


9750 


985 


6625 




















81 T09 s= 


001 000 


9740 


984 


6633 






















a ft a a a o 


9920 
























BI T1 = 


002000 


9730 
























B 1 T 1 1 a 


004000 


9720 


6640 
























01 0000 


971 


6723 






















BI T 1 3 e 


020000 


970* 


5908 
























040000 


9690 


861 1 






















BI T 1 5 s 


100000 


9680 


2001 


$.006 


2010 


6720 


6722 














3172 s 


000004 


991 
























BITS « 


000010 


9900 


























000020 


9890 


























n (I n A/in 


9880 
























R 1 T R 


A ft A •! Aft 

UOU1 00 




6678 






















BI T7 a 


A ft ft ^ A A 

U U U «i uu 


986# 


























ft A A/5 A A 


9850 
























BI T9 a 


001 000 


9840 


























A A A A 1 A 
UUUU in 


1 0000 
























ca 3 U P> & A m 


1 044 1 S 


3697 


6288 


72 1 6# 






















104416 




2930 


3032 


31 60 


3249 


3370 


3538 


3670 


3700 


3819 


417® 4265 


4523 






5693 


5709 


6263 


6291 


7318$ 


















C200 n 6 


58200 


6731 






















' H * 1 


021 242 




6265$ 
























2 1 402 


4987 


5055 


S1 24 


S203 


B364 


§43© 


6340# 












C H KCRD« 




261 2 


2672 


3925 


4334 


4428 


8243 


S410 


S470 


S606 


5759 


721©# 




^hkda 


no 1 Acs 


2847 


2942 


3045 


4206 


62820 
















CHKOA 1 


021270 


31 75 


32GS 


3305 


3559 


62840 
















C H K E C L 


021 356 


4983 


S0S1 


51 20 


§1 99 


5286 


S360 


5428 


63290 














2861 


2957 


3050 


3295 


421 


480S 


631 60 












CHKHE 


A A 1 A Q /I 




2936 


3039 


3256 


41 87 


4527 


62640 












UrlrSnG 1 


021 226 




3377 


3552 


3687 


3833 


6261 






















3049 


3278 


3726 


4202 


481 9 


63020 










CH « C RO 


021 7S0 




72lto 
























1 044 07 


661 


6672 


6695 


7206$ 


















C N T . R D ~ 


1 044 1 4 


3967 


4025 


4043 


4092 


5021 


5321 


6393 


721 40 


7284 


7286 






CNT . RE c 


104413 


2310 


2357 


2394 


2446 


2531 


2S66 


2598 


2656 


2722 


2776 


2895 2996 


3098 






3128 


3221 


3345 


3452 


3508 


3637 


3792 


3906 


4003 


4120 


4234 4308 


4397 






4489 


4596 


4662 


4748 


4769 


4847 


4927 


4973 


5004 


5041 


50 70 51 10 


5139 






5189 


5226 


5259 


5276 


5305 


5350 


5380 


5425 


5448 


5513 


5587 5667 


5754 






5876 


72120 


7275 




















CN. RDY 


022032 


6561 


65620 


7214 




















CN.RST 


022014 


65590 


7212 
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LOGIC 


TEST 2 


MACY1 1 


30AM052) 


21-F 


CZRKKF 


. PI 1 21-FEB-78 


08:51 




CROSS 


REFERENCE 


TABLE 


COUNT 


001362 


1 1350 


341 0* 


3414* 


3520* 


3533* 


COUNT 1 


001 364 


1 136* 


6390* 


6405* 






CR 


* 000015 


908* 


6842 


6852 






CRETRN 


021430 


6266 


6285 


6303 


6317 


6330 


CR LF 


« 000200 


909* 


1884 


6813 


6852 




DDISP 


* 177570 


91 Sftf 


1057 


1855 






DDPCH 


001410 


1 1560 


1885 


1905 


1912* 


1914 


DELAY 


= 104417 


2342 


5155 


5166 


5584 


72200 


DELA. Y 


021664 


6456* 


7220 








DH1 00 


032753 


1565 


1663 


79410 






DH1 03 


033010 


1586 


79470 








DH1 04 


033024 


1593 


79500 








DH1 07 


033050 


1614 


79550 








DH1 1 7 


C331 06 


1551 


1670 


1677 


1684 


1898 


DH125 


033122 


1719 


1726 


79640 






DH1 30 


0331 50 


1733 


7969* 








DH1 31 


033207 


1741 


1762 


79760 






DH1 33 


033235 


1 755 


7981 








DH 1 4 


0321 13 


1248 


1 776 


7851 






DH140 


033273 


17S0 


79880 








DH2 


032020 


1712 


78370 








DH21 


0321 50 


1346 


78570 








DH30 


032155 


1269 


1276 


1367 


1381 


1402 


DH34 


032213 


1262 


1283 


1297 


1332 


1530 


DH35 


032231 


1304 


78700 








DH36 


032251 


131 1 


78740 








DH4 


032047 


1255 


1318 


1339 


1374 


1395 






1649 


1656 


1748 


1769 


180S 


DH40 


032301 


1325 


78800 








DH44 


032327 


1241 


1290 


1353 


1380 


1388 


DH5 


032075 


1438 


78470 








DH54 


032374 


1410 


1420 


1504 


1514 


7893* 


DH56 


032503 


1429 


1466 


79060 






DH64 


032610 


1475 


791 90 








DH66 


032634 


1489 


79240 








DH67 


032672 


1496 


79300 








DH74 


032732 


1537 


1544 


1798 


79370 




DISPLA 


001 142 


1057$ 


185S* 


1863* 


6654* 


6675* 


DISPRE 


000174 


10150 


1863 








PRESET 


021504 


2734 


4674 


4991 


S260 


5818 


DRMDLD 


02S302 


7276* 


728S 


7290 


72940 




PRIVAD 


001310 


1 127# 


2104* 


2272* 


2277 


2289 






2669 


2738 


2818 


2833 


2913 






3332 


3505 


3620 


3784 


3920 






4454 


451 1 


4522 


4549 


4673 






5222 


5316 


5407 


5465 


5530 






6425 


6716 


6725 


7276 


7277 


DRIVS 


001412 


1 1580 


1959 


1996* 


201 1* 


2047* 






6729* 










DRIV0 


001414 


1 170* 


1973 


2050 


2101 


2194 


DRIV1 


001416 


11710 










DRIV2 


001420 


1 1720 










DRIV3 


001422 


1 173* 










DRIV4 


001424 


1 174*5* 










DRIV5 


001426 


1 1750 










DRIVS 


001430 


1 1760 
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4516* 4519* 5221* 5264* 



6341 63460 



1916* 


1920 


1929 


1941 


2197 


2199 


2275 


2284 


1705 


79610 














1452 


1579 


1628 


1635 


1691 


78590 






78660 
















1445 


1459 


1482 


1523 


1558 


1600 


1607 


1842 


7842# 
















1S72 


1821 


1783 


7885# 










6390$ 


6428 


7273 


7291 










2321 


2367 


2404 


241® 


2456 


2S41 


2567 


2610 


2929 


3015 


3031 


3068 


3123 


3236 


3248 


3262 


4015 


4161 


4178 


4254 


4264 


4326 


4356 


4419 


4727 


4730 


4749 


4785 


4862 


4939 


5017 


5086 


5599 


S681 


5757 


5823* 


6264 


6282 


6360 


6391 


7279* 


7281 * 


7282 


7290* 


7295* 


7307* 






2068* 


2077 


2097 


2237* 


2265 


5820 


S862 


671 1* 


2232 


2234 


2297 


5851 


5891 


6719 


7296 
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CROSS REFERENCE TABLE — USER SYMBOLS 



SEO 0149 



DRIV7 


001432 


1 1 77# 


« 8 «o 


58?6* 






01VD0N 


001 352 


1128$ 






5820 




DRVPTR 


00 1 354 


1 1 31 


2101* 

i n^R 


2268 


2286* 


6714 


DSWR = 


1 77570 












DT 1 


031 724 


OCT 

1 263 


1 7AR 


1 OQR 


1 305 


1 333 






1 699 


1 706 


1 7QQ 






DT2 


031 732 


1 256 




■31 Q 


1 326 


1 340 






1 559 




1 601 


fins. 


1 643 






1 olo 


inns 


781 6* 






DT20 


031 742 




. . 


1 354 


1 361 


1 389 


DT21 


031 756 




70008 








DT26 


031 762 






1 277 


1 368 


1 382 






RQR 


i RRia 


1 692 


1 734 


1 756 


DT54 


031 774 






1 431 


1 468 


1 506 


EFLG1 


001 370 


If?* 




3429* 


3629* 


3833* 


EMT VEC= 


000030 






1 840* 






E M 1 00 


027756 


1 

1 r^i 










EM 101 


030001 




_ 








EM1 02 


030043 


1 C70 










EMI 03 


030067 


RRt; 


7RA7i 








EM 1 04 


0301 05 


CQO 


76110 








EM1 05 


030 1 56 


1 CQQ 


_ 

7R0^jy 








EM1 06 


03021 4 


PAR 










EM 1 07 


030245 


1 CI O 

i ant 










EM1 1 


025370 












EM1 1 


030306 


roa 










EM1 1 1 


030351 


4 R07 
1 K^l 










EM1 1 2 


030376 












EM1 1 3 


0304 1 7 


1 fidl 










EM1 1 4 


030456 


Ran 


7RR1 # 








EM1 1 5 


03051 5 


1 ccc 










EM1 1 6 


030551 


1 KM 










EM1 1 7 


030624 


RRQ 


7RR-3# 

" „ 








_M1 2 


025402 


i oaa 










EM1 20 


030671 


1 C7K 


769 1 








EM1 21 


030744 


1 KP1 


77000 








EM1 22 


031 002 


1 con 


77?4# 








EM1 23 


031051 


1 CO? 

7aI 










E M 1 2 4 


C3 1 1 10 


1 704 


770 
^ /f 








EM1 25 


031 1 52 












EM 1 26 


03121 1 


1 71 R 










EM1 27 




1 70K 


77420 








EM1 3 






732 30 








EM1 30 


031314 


1 710 


77=11* 








EM1 31 


031 351 


1 7 'A 










EM1 32 


031376 


7/17 
1 7 cl 


77Rna 








E.«11 33 


031 10 
















1 7R1 


77680 








EV1 35 


031474 


1 768 


77750 








EM 137 


031531 


1782 


77810 








EM 140 


031547 


1789 


77850 








EM141 


031616 


1797 


7793* 








EM142 


031662 


1809 


77990 








EM16 


025427 


1254 


7326# 








EM21 


025456 


1261 


73310 








EM30 


025470 


1268 


73340 









1439 


1538 


1545 


1552 


1587 


1671 


1678 


1685 


1375 
1650 


1396 
1657 


1446 
1713 


1460 
1720 


1476 
1727 


1483 
1742 


1524 
1749 


1531 
1763 


1573 


1622 


1784 


1791 


781 S# 








1403 
1777 
1516 
3655 


1453 
78240 
7827# 
3706 


1490 


1497 


1566 


1L30 


1615 


1629 
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CROSS 


REFERENCE 


TABLE 


EM31 


025500 


1275 


73370 








EM32 


025510 


1282 


73400 








EM33 


025531 


1289 


73440 








EM34 


025551 


1296 


73480 








EM35 


025570 


1303 


73520 








EM36 


025623 


1310 


7358# 








EM 3 7 


025653 


1317 


7364# 








EM40 


025707 


1324 


73700 








EM41 


025747 


1331 


73770 








EM43 


026004 


1345 


2143 


73830 






EM44 


026036 


1352 


73890 








EM45 


0261 12 


1359 


73980 








EM46 


026160 


1366 


74060 








EM47 


026216 


1373 


741 2* 








EM50 


026260 


1380 


74190 








EM51 


026307 


1387 


74240 








EM52 


026362 


1394 


74330 








EM53 


026407 


1401 


74380 








EM54 


026452 


1408 


74450 








EM55 


026544 


1418 


74560 








EM56 


026623 


1428 


74650 








EM57 


026662 


1437 


74720 








EM60 


026720 


1444 


74780 








EM61 


026757 


1451 


74850 








EM62 


027014 


1458 


74910 








EM63 


027026 


1465 


74940 








EM64 


027072 


1474 


75010 








EM65 


0271 35 


1481 


75080 








EM66 


027201 


1488 


751 60 








EM67 


027240 


1495 


75230 








EM 70 


027253 


1247 


1502 


75260 






EM71 


C27344 


1512 


75370 








EM 7 2 


027422 


1522 


75460 








EM73 


027464 


1529 


75530 








EM74 


027536 


1536 


75610 








EM75 


027606 


1543 


75690 








EM76 


C27656 


1550 


75770 








EM77 


027721 


1557 


75840 








ERRVEC= 


0C0004 


9960 


1852 


1853* 


1864* 


1892 


FCHECK 


025160 


5801 


72730 


7301 






F F LAG 


001404 


1 152* 


2291* 


2303* 


5799 




FTITLE 


001346 


1 1260 










GNS 


****** y 


1014 


1883 


1926 


1938 


1947 






6573 


6581 


7198 


7199 


7200 






7214 


7216 


7218 


7220 


7222 


GTSWR = 


1 04406 


1878 


72040 








GT2RG 


021010 


4956 


4963 


4969 


5030 


5037 






5346 


5416 


5422 


5541 


61320 


GT3RG 


021002 


2335 


2371 


2701 


2746 


2823 






4425 


4435 


4440 


4709 


61310 


GT4RG 


020774 


2222 


2382 


2407 


2580 


2626 






3157 


3247 


3368 


3536 


3667 






4521 


5691 


5707 


5925 


61300 


HT 


00001 1 


9060 


681 1 


6852 






INDX1 


001358 


1 1330 


2458* 


2467* 


3618* 


3735 






5867* 


5886 


6027 


6029* 
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1893* 


1901* 


6616 


6617* 


6619* 


6622* 






1951 


1966 


1990 


2122 


2147 


2301 


6151 


6435 


7201 


7202 


7204 


7206 


7207 


7208 


7210 


7212 


7224 
















5092 


5100 


5106 


5170 


5186 


5251 


5272 


5331 


291i 


3020 


3547 


3681 


3829 


4167 


4332 


4341 


6319 
















2632 


2637 


2683 


2687 


2696 


2832 


2928 


3030 


3817 


3936 


3941 


3945 


4068 


4 '«.' 74 


4177 


4263 


6267 


6407 


6527 












3737* 


3743® 


3804* 


3814* 


3898* 


3977 


3982* 


5765* 
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§10 01S1 



1NDX2 


0013S0 


1 1 34* 


2465* 


lOTVECa 


000020 


1 001* 


1837* 


LF s 


000012 


907* 


6846 


M S G 1 


001216 


1 084* 


2045 


MSG2 


001236 


1 088* 


2080 


VbG3 


001245 


1091* 


6570 


MSG4 


001272 


1096* 


2288 


MSGS 


001 303 


1099* 


671 


MSGS 


001315 


1 102# 


6728 


NUDRV 


005040 


2250* 


5824 


ODOEVN 


001406 


1 153* 


5861* 


OUTBUF 


033342 


2788 


2813 






3272 


3274 






4160 


4247 






4482 


4464 






8125* 


SS32 


PF'STRT 


004702 


2174# 


7264 


PHYDftV 


001438 


1 180* 




PIRQ «s 


177772 


013# 




PIRQVE® 


000240 


1007* 




PRO n 


000000 


930* 




PR1 B 


000040 


931* 




PR2 ■ 


000100 


932* 




PR3 


000140 


933# 




PR4 a 


000200 


934* 




PRS a 


000240 


935* 




PRS » 


000300 


936* 




PR7 k 


000340 


937* 




PS ■ 


177776 


910* 


91 1 


PSW 


177776 


911* 




PWRVEC* 


000024 


1002* 


1843* 


RDCHR = 


1 0441 


7113 


7207* 


RDLIN s 


1 0441 1 


1968 


7208* 


RESVEC- 


C00010 


997* 




RKBA 


001335 


1116* 


281 5 






4020* 


4086* 






4784 


4943* 


RKCS 


001332 


1114* 


2327* 






3331 


3529* 






4320 


4409 






5088 


5151 






6265 


6340 


RKOA 


001340 


1117* 


1818* 






2610* 


2669* 






3699 


3808* 






4419* 


4456 






5241* 


5252 






5697* 


5757* 


RKDB 


001342 


1118* 


3084 


RKDS 


001326 


1112* 


1820 






2457 


2505 






4051 


4273 






6426 


7287 


RKER 


001330 


1113* 


2699 






5414 


5476 


RKPRI 


001400 


1 144* 


1897* 
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RKVEC 


001402 


11 49* 


2108* 






4869 


4895* 


RKWC 


001334 


1115* 


281 7* 






4159* 


4252* 






5405* 


5466* 


SEEKO 


001372 


1141* 


3896 


SEEK 1 


001374 


1 1 42* 




SEEK2 


001376 


1 143* 


3980 


SriFTRT 


021200 


2290 


4731 


SIMUL 


001 344 


1 125* 


2030* 


SIZEF 


025304 


5849 


7295* 


SIZYET 


001440 


1 181* 


2027* 


STACK = 


001 1 00 


901* 


1835 


START 


002636 


1018 


1814* 


STARTA 


002704 


1817 


1821 


ST ART 1 


003334 


1891 


1905* 


STKLMTs 


177774 


912* 




ST2 


003738 


191 1 


1935 


ST3 


004262 


1922 


1933 


5T4 


0044S6 


2031 


2034 


SWR 


001 140 


1056* 


1833 






6611 


6625 






7252* 




SWREG 


000176 


1016* 


1862 


SWO « 


000001 


965* 




SWOO ■ 


000001 


9554* 


96S 


SW01 a 


000002 


954* 


964 


SW02 = 


000004 


953* 


963 


SW03 = 


000010 


952* 


962 


SW04 s 


000020 


951* 


961 


SWOB • 


000040 


950* 


960 


SW06 » 


000100 


949* 


959 


SW07 ■ 


000200 


948* 


958 


3 WO 8 « 


000400 


947* 


957 


SW09 = 


001000 


946* 


956 


SW 1 


000002 


964* 




SW10 = 


002000 


945* 


2028 


SW11 = 


004000 


944* 




SW12 a 


C10000 


943* 


6696 


SW1 3 » 


020000 


942* 


6431 


SW14 e 


040000 


941* 




SW15 « 


1 00000 


940* 




Sw2 


000004 


963* 




SW3 


000010 


962* 




SW4 


000020 


961* 




SW5 = 


OOC040 


960* 




SW6 


0001 00 


959* 




SW7 


000200 


958* 




S*8 


000400 


957* 




SW9 


001000 


956* 




T BI TVE« 


000014 


998* 




TIMER 


001 366 


1 137* 


6361* 


TKVEC * 


000060 


1005* 




TPVEC * 


000064 


1006* 




T RAPVE = 


000034 


1004* 


1841* 


TRTVECs 


000014 


999f? 





2469* 3652* 3664* 5781* 5872* 5954 S975® 

1838* 

6852 



6724 



S910 


5913 


6055* 


S0S6 
















2855 


2857 


2909 


2951 


£953 


3011 


3033 


305S 


3141 « 


3146 


3237 


3334 


3409 


3521* 


3S25 


36B1 


3781 


3984 


3968 


3972 


4014 


414? 


4253 


4277 


4324* 


4327 


436S 


4367 


4372 


4378 


4380 


4411 


441S 


4503 


478S 


4829 


4831 


4943 


5319 


S392 


S4S2® 


i4§8 


B461* 


S4@7 


SS77 


§833 


5898 


SS82 


§013 


3000* 













S8S4* 5981 6912 



1844* 


7231* 


7232* 


7241 * 


7247® 


7259* 


7260* 










2908 


3010 


3146* 


3238* 


3272 


3275 


3358* 


3525* 


3653* 


3805* 


3964* 


41 60* 


4195 


4198 


4253* 


4323 


4418* 


4462 


4465 


4510* 


4534 


4537 


5085* 


5319* 


5406* 


5467* 


5532* 


5600* 


5678 


5751 








2608 


2668 


2741 * 


2814 


2907 


3008 


31 20 


3152 


3233 


3240* 


3242 


3531 


3660* 


3662 


3610* 


3812 


3900 


4002 


4132 


4172 


4256* 


4258 


4501 


4612 


4672 


4782 


4861 


4946* 


4949 


4967 


5019* 


5035 


5083 


5220 


5315 


5379 


5460 


5537* 


. 5566* 


5579 


5666 


5758* 


5866 


6133 


8342 


6343 


6392* 


6523 


6559* 


6563 


6583 


7283* 








2042 


2051* 


2052 


2201 * 


2321 * 


2367* 


2404* 


2416* 


2456* 


2544* 


2567* 


2738* 


2739* 


2818* 


2913* 


3015* 


3122 


3235 


3357* 


3527* 


3658* 


3694 


3922* 


3957 


3960 


3963* 


4018* 


4073 


4081 


4087* 


4161 * 


4254* 


4322 


4459 


451 1* 


4673* 


4680* 


4749* 


4783 


4862* 


4944* 


5017* 


5086* 


5154* 


5316* 


5317* 


5407* 


5^68* 


5486 


5491 


5533* 


5551 


5556 


5599* 


5683* 


5928* 


6130 


6284 


6290 


6306 


6360* 


6391* 


6425* 


7282* 


7285* 




3087 


3099 


3101 


31 02 


3181 


3186 


3462 


3464 


3465 


3854 


3857 


2041 


2063 


2202 


2320 


2345 


2368 


2377 


2380 


2405 


2418 


2422 


2542 


2569 


2619 


2630 


2679 


2685 


2740 


3545 


3679 


3827 


3901 


4540 


4725 


4750 


4752 


5157 


5965 


5983 


6131 


6362 


6366 


6399 


3902 


4344 


4346 


4438 


4961 


5016 


5098 


5168 


5249 


S328 


5339 


5480 


5623 


5629 


6132 


6316 


6329 


6331 


6332 








4865 


5945 


6487 
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4613 


4631* 


4643* 


4677 


4688* 


4697* 


4707* 


4718* 


4790 


4798* 


4806* 


4904* 


5534 


5548* 


5942 
















2912* 


3014* 


3148* 


3239* 


3359* 


3526* 


3655* 


3807* 


3965* 


4019* 


4085* 


4321 


4417* 


4448 


4450 


4509* 


4787* 


4942* 


4955 


5084* 


S093 


5318* 


5531 * 


5598* 


5680* 


5696* 


5755* 


6302 


6305 










3985 






















4734 


5999 


6018 


6228* 


6717 


6726 












2033* 


3335 


3433 


3622 


3732 


3785 


3866 


4000 








2039* 


5847* 




















2127 


2164 




















I82e* 






















1959$ 


1992 




















2039# 






















2078 


2081 


20iS# 


6096 
















1854* 


16S6 


1862* 


1876 


202® 


2138 


2152 


2157 


©187 


6431 


653? 


S627 


6633 


§640 


6678 


6686 


6692 


6@9@ 


6699 


700S 


7046* 


7239 



1876 7009 7022 



6699 



6567 6686 



6364* 6456* 6459* 6484* 6490* 6522* 6525* 

1842* 
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T ST END 


020626 


6028 


60550 




TSTRWS 


021436 


2750 


5128 


5207 


TSTSIN 


021572 


64250 


7224 




TST.SI= 


1 04421 


2666 


2732 


2786 






4244 


431 8 


4407 






5458 


5523 


5744 


TST1 


004706 


2110 


21920 




TST10 


005742 


2481 


2503 


2508 


TST1 1 


006030 


2554 


25650 




TST12 


0061 10 


2579 


25970 




T ST 1 3 


006252 


2642 


26550 




TST14 


006416 


2705 


27210 




T ST 1 5 


C06510 


27750 






T ST 1 6 


006746 


2866 


2893# 




T5T1 7 


0071 74 


2970 


29950 




TST2 


005040 


22590 






TST20 


007504 


31 00 


31 1 90 




TST21 


007702 


32190 






TST22 


010154 


3300 


33280 




TST23 


010524 


3463 


34970 




TST24 


01 1004 


36140 






TST25 


011414 


3733 


3749 


37770 


TST26 


011 722 


3867 


38940 




TST27 


01 2242 


39980 






TST3 


005236 


23090 






TST30 


012530 


4001 


4100 


41 190 


TST31 


012764 


4215 


42330 




TST32 


013170 


4274 


4294 


43070 


TST33 


01 3436 


4376 


43960 




TST34 


013720 


4470 


44880 




TST35 


0141 76 


4541 


4559 


4584 


TST36 


014330 


4660* 






TST37 


014654 


4758 


47680 




TST4 


005350 


2341 


23560 




TST40 


015070 


4830 


48460 




TST41 


015274 


4901 


49260 




TST42 


C15456 


5003# 






TST43 


01 5564 


50690 






TST44 


01 5740 


51380 






TST45 


01 6076 


5163 


52190 




TST46 


016304 


5291 


53040 




TST47 


01 6456 


53780 






TST5 


005436 


2381 


23930 




TST50 


016634 


54470 






TST51 


01 6762 


5489 


55120 




TST52 


017134 


55780 






TST53 


01 7330 


56470 






TST54 


01 7522 


5659 


571 7 


57420 


TST55 


01 7760 


57970 






TST56 


020004 


58140 






TST57 


020054 


58450 






TST6 


005464 


2406 


241 5/ 




TST7 


005522 


2419 


24450 




TYERM 


021026 


2055 


2086 


61 *30 


TYPDS = 


1 04405 


6085 


72020 




TYPE a 


1 04401 


1872 


1924 


1936 



2905 
4499 
72240 



3006 
4606 



3138 
4779 



3231 
4857 



3355 
4937 



3518 
5014 



3648 
5080 



3802 
5149 



3916 
5239 



4130 
5390 



MD-1 1-CZRKKF, RK1 1 BASIC 


LOGIC 


TEST 2 


MACY1 1 


30A( 1052) 


21-FEB- 


-78 08 


58 PAGE 


CZRKKF. 


P11 21-FEB-78 


38:51 




CROSS REFERENCE 


TABLE — 


USER SYMBOLS 






2145 


2288 


2299 


2304 


6083 


6086 


6149 






6724 


6728 


6742 


6759 


6761 


6764 


6766 






7021 


7024 


7037 


7048 


7067 


7120 


7126 






7150 


71980 


7261 










TYPOC = 


1 04402 


2071 


2125 


2150 


6154 


6439 


6577 


6584 


TYPON = 


1 04404 


72010 














TYPOS = 


1 04403 


1930 


1 942 


2293 


72000 








T56 


020140 


58620 


6058 












T56FLG 


0014,34 


1 1 790 


2096* 


5865* 


6059* 


6707 






WAT I ME 


021742 


2099 


2174 


65000 










WATINT 


021706 


64840 


7222 












WAT . IN= 


104420 


4619 


4633 


4682 


4703 


4794 


5538 


72220 


SAUTOB 


001 1 34 


10530 


1880* 


7017 


7166 








S5DADR 


0011 22 


10480 














SBDDAT 


001 126 


10500 














SCHARC 


023304 


6818* 


6828* 


6835 


6844* 


68490 






SCKSWR 


023762 


70090 


7206 












$ CM TAG 


001 100 


10360 


1830 


1831 


1839 


1845 


1846 




$CM1 = 


000012 


10680 


10690 


10700 


10710 


10720 


10730 


10740 


$CM2 = 


000024 


1 0680 


10690 


10700 


10710 


10720 


1073# 


1074# 


$CM3 = 


000012 


1 0660 


1068 












SCNTLG 


024647 


7020 


71610 












$CNTLU 


024642 


7037 


7135 


71600 










SCR LF 


001 213 


10810 


2067 


2141 


2305 


6689 


6742 


6761 






7160 














SDBLK 


023524 


6877 


691 1 


69190 










SDOAGN 


020750 


6079 


6088 


60940 










SDTBL 


023514 


6880 


69150 












SENDAD 


020740 


1025 


60900 












SENDCT 


020706 


60810 














SENDMG 


020757 


6083 


60980 












SENULL 


020754 


6086 


6097* 












SEOP 


020652 


2100 


2267 


5864 


60710 


6713 






SEOPCT 


020700 


60780 


6082 












SERFLG 


001103 


10390 


6600 


6629 


6631 


6637* 


6658 


6673* 


SERMAX 


001 1 15 


10450 


1847* 


6631 


6653* 


6658 






5ERR0R 


022412 


1839 


66720 












SERRPC 


001 1 16 


10460 


6683* 


6684* 


6685 


6748 


7814 


7816 


SERRTB 


001442 


1 1960 


6756 












SERRTY 


022734 


6688 


67410 












SERTTL 


001 1 12 


1 0430 


2264* 


5826* 


6676* 


6680 






SESCAP 


001210 


10790 


1846* 


6652* 


6702 


6704 






$F I LLC 


001 1 56 


10640 


6821 


6852 










$FILLS 


001 1 55 


1 0630 


6852 












SGDADR 


001 120 


10470 














SGDDAT 


001 1 24 


10490 














SGET42 


020730 


60870 














SGTSWR 


024032 


70210 


7204 












$HD 


000000 


871 














SICNT 


001 1 04 


10400 


6644* 


6645 


6647* 


6657 






SI LLUP 


025142 


7231 


7247 


72660 










SINTAG 


001 1 35 


10540 


7049 


7166 










SIT EMB 


001 114 


10440 


668F* 


6745 










$LF 


001214 


10820 


6852 


7150 


7160 








SLPADR 


001106 


10410 


1848* 


2155 


6635* 


6650* 


6655 


6657 


SLPERR 


001 1 10 


10420 


1849* 


3126* 


3329* 


3499* 


3616* 


3779* 



6433 
6770 
7131 



6569 
6777 
7135 



6571 
6816 
7140 



6579 

6911 
7141 



6689 6710 
6981 7020 
7143 7146 



10750 
10750 



10760 
10760 



10770 
10770 



10780 
10780 



6693 
3903* 



4859* 5224* 5582* 5748* 6635 
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6651 * 


6657 


5 '-"A I L = 




U 


1 866 


7-fs/L 


SMNEW 


024665 




7024 




SMSWR 


024654 




7021 


lie 7* 


SMXCNT 


022410 




6648 




SNULL 


001 1 54 




1 062# 




5NWTST- 


000001 






2180 








2562? 


25880 










3107 










3990* 








458 7# 


4589 








5062 


5132* 










557 1 


S3CNT 


023756 




6Q53* 


6982* 


SQMODE 


023760 






6952* 


$QVER 


022374 




661 2 


6628 


$PA5S 


0011 00 




1 Q37# 


6075* 


$POWER 


025150 






7269* 


SPWRAD 


0251 36 








$PWRDN 


024776 




1 843 


7231 # 


$PWRMG 






7262$ 




$PWRUP 






7241 


72470 


$QUES 


001 212 






6852 


$RDCHR 


024244 






7207 


3RDDEC= 


****** 


u 


7209 




SRDL1N 


024364 




71 080 


7208 


SRDOCT= 




u 


7209 




SRDSZ = 


000022 




71 21* 




SREGAD 


001 1 SO 




1 0860 




$REGO 


001 1 62 




1 068* 


* 








2706* 


-^ni * 








3286* 


/! non 








4034* 










4458* 










4799* 










5771 * 










? neo 


7PT7 


$R£G1 


001 1 64 






251 * 










3094* 










3857* 








4wOS* 










491 1 * 


5293* 












$REG1 


001 202 






2833* 










4522* 


SREG1 1 


00 1 204 








SREG2 


001 1 66 




i A7n« 
° Q 


2966* 










4563* 








7819 


7824 


5REG3 


001170 




1 071 » 


3548* 


$REG4 


001 1 72 




1072* 


7827 


SPEG5 


C01 1 74 




10730 


7827 


$REG6 


0011 76 




1074# 


7827 


SREG7 


001200 




10750 


6185 


$RT NAD 


020752 




60960 




$R2A a 




u 


7209 
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SSAVRE* 


****** y 


7209 




SSAVR6 


025146 


7240* 


7248 


SSCOPE 


022140 


1837 


6609$ 


S5ETUP* 


0001 17 


18140 


1836 






7004 


7166 


SSTUP e 


177777 


1814# 




SSVLAD 


022346 


6620 


66490 


SSVPC * 


000204 


10230 


1028 


SSWR « 


165400 


8520 


871 






1845 


1846 






2598 


2656 






3999 


4120 






5139 


5220 






6074 


6089 






6629 


6630 


$5WRMK» 


000000 


884 


885 


$ TIMES 


001206 


10780 


1845* 






5846* 


6074* 


STKB 


001146 


10590 


7002 


$TKS 


001 144 


10580 


5698 


STN 


000060 


8520 


871 






23940 


2406 






2554 


2562 






27760 


2866 






3309 


3329$ 






38950 


3990 






43080 


437S 






46610 


4758 






50700 


5132 






5489 


5503 






5806 


58150 


$TPB 


001 152 


1061# 


6841* 


STPFL.G 


001 157 


1065$ 


6799 


$TPS 


001 150 


1060* 


6839 


STRAP 


024676 


1841 


71750 


STRAPS 


024720 


71860 


7197 


$TRP a 


000022 


71900 


7190# 






72110 


7212 






7224 


72250 


5TRPA0 


024732 


7180 


7197# 


STSTNM 


C01 102 


1038$ 


2261* 


STTYIN 


024620 


7110 


71 1 1 


STYPBNa 




7203 




STYPDS 


023310 


6865* 


7202 


STYPE 


023070 


67990 


7190 


STYPEC 


023240 


6820 


6827 


STYPEX 


023306 


6845 


6847 


STYPOC 


023560 


69510 


7199 


$TYPON 


023574 


6950 


69530 


STYPOS 


023534 


69460 


7200 


SXTSTR 


0221 52 


66140 




$$GET4= 


000000 


60890 




SOFILL 


023757 


6947* 


6951* 


S40CAT= 


****** y 


661 1 






034342 


101 00 


10140 






1884# 


1927# 



6701 

6650 6805 



6852 


















2525:* 


2527 






23060 


23530 


2390# 


241 00 


2412 


24280 


2430 


2590 


26480 


2650 


271 1 


2713 


27600 


2762 


28720 


2874 


29790 


2981 


32000 


3202 


33090 


331 1 


34700 


3472 


3595# 


3597 


37540 


3756 


3886* 






4113 


42220 


4224 


4301 


4303 


43870 


4389 


4475# 


4477 


46510 


4653 


47620 


4764 


48360 


4838 


4918# 


4920 


4995$ 


4997 


5080$ 


5134 


52120 


5214 


5297. ¥ 


5299 


53690 


5371 


5435# 


5s 37 


5503$ 


5505 


56370 


5639 


5732$ 


5734 


57i1# 


5793 


5806*' 


5808 


S829# 


S831 




69950 






















6957 






6997# 
















6636 


6646 


66540 


















6076* 


6084 


6097 


6642 


6658 














7250 






















7067 


7143 


7160 


















2324* 


2345* 


2377* 


2422* 


2500* 


2505* 


251 0* 


251 7* 


2556* 


2576* 


2643* 


2867* 


2953* 


2964* 


2971 * 


3055* 


3066* 


3086* 


3093* 


3185* 


3274* 


3285* 


3389* 


341 7* 


3448* 










3856* 


3953* 


3959* 


3970* 


41 01 * 


4 1 97* 




4284* 


4285* 


4346* 


4352* 


4360* 


4367* 


4378* 


4450* 


4471* 


4536* 


4547* 


4566* 


4621* 


4689* 


4700* 


4722* 


4732* 


4752* 


4759* 


4831 * 


4884* 


4910* 


5292* 


5338* 


5479* 


5490* 


5555* 


5616* 


5628* 


5721 * 


5968* 


6000* 


601 9* 


61 33* 


6305* 


6331 * 


6342* 


6366* 


7814 


7816 


7819 


2518* 


2557* 


2644* 


2707* 


2858* 


2868* 


2954* 


2965* 


2972* 


3056* 


3067* 


3101* 


3102* 


3186* 


3275* 


3287* 


3302* 


3390* 


3418* 


3449* 


3465* 


3712* 


3952* 


3960* 


3971 * 


4035* 


4081* 


4102* 


4198* 


4217* 


4286* 


4353* 


4361 * 


4451 * 


4459* 


4465* 


4472* 


4537* 


4548* 


4562* 


4735* 


4816* 


4832* 


4885* 


5339* 


5480* 


5491 * 


5556* 


5617* 


5629* 


5719* 


5772* 


6132* 


6306* 


6332* 


7819 


7824 


7827 
















4178* 


2929* 


3031* 


3158* 


3248* 


3369* 


3537* 


3668* 


3696* 


3699* 


3818* 


5692* 


5708* 


6192 


6196 


6261* 


6264* 


6287* 


6290* 








3068* 


3288* 


3391 * 


341 9* 


371 3* 








41 03* 


4288* 


4380* 


4955* 


4964* 


5029* 


5093* 


5101* 


5171 * 


5252* 


5332* 


5417* 


8722* 


6131* 


7827 


















7827 




3682* 


3830* 


5723* 


6130* 


6181 


6560* 


6562* 


6565* 


7819 




7827 






















*!ACY1 1 


30AM052) 


21-FEB-78 08:58 PAGE 


1 58 












:ross reference 


TABLE — 


USER SYMBOLS 












SEO 


7249* 


7250* 


72680 


















1837 


1839 


1841 


1843 


1845 


1 846 


1848 


1872 


1873 


6073 


6610 


877 


878 


879 


880 


881 


Rfi9 


883 


884 


1 078 


1 079 


1 080 


1848 


1849 


2193 


2260 


2310 


•toon 


2394 


241 6 


2446 


2531 


2566 


2722 


2776 


2894 


2996 


3120 




3329 


3498 


361S 


3778 


3895 


4234 


4308 


4397 


4489 


4596 




4769 


4847 


4927 


5004 


5070 


5305 


5379 


5448 


5513 


5579 


.... 


5743 


5798 


5815 


5846 


6068 


6095 


6097 


6601 


6602 


6603 




660S 


661 1 


6623 


6625 


6626 


6631 


6638 


6639 


6640 


6651 




6657 


7265 








6605 


6606 


6627 
















5815* 


2260* 


3498* 


3615* 


3778* 


3895* 


3999 


4661 * 


5648* 


5743* 


5798* 


6638* 


6645 


6648* 


6657 
















7013 


7030 


7084 


7090 
















5699* 


5715 


5718 


7002 


701 1 


7027 


7051 * 


7082 


7088 






2178 


21930 


2253 


22600 


2306 


23100 


2341 


2353 


2357# 


2381 


2390 


2410 


24160 


2419 


2428 


24460 


2481 


2503 


2508 


2515 


2525 


2531 # 


25660 


2579 


2588 


25980 


2642 




2656# 


2705 


2711 


27220 


2760 


2872 


28940 


2970 


2979 


29960 


3100 


3105 


31200 


3200 


32200 


3300 


3463 


3470 


34980 


3595 


36150 


3733 


3749 


3754 


37780 


3867 


3886 


3999# 


4001 


4100 


41 1 1 


4120# 








4274 


4294 


4301 


4387 


43970 


4470 


4475 


44890 


4541 


4559 


4584 


4587 


4596* 


4651 


47S2 


4769# 


4830 


4836 


4847# 


4901 


491 S 


49S7# 


4995 


5004$ 


5060 


5139$ 


S163 


5212 


5220# 


5291 


5297 


5305# 


5369 


S379# 


54 3 5 


5448$ 


5513# 


5569 


5579$ 


5637 


5648# 


5659 


571 7 


5732 


5743$ 


8791 


S798# 


S829 


5846* 




















8852 
6852 
6852 






















7200* 


7201* 


7202$ 


7203$ 


7204 


72050 


7206 


7207# 


7208$ 


7209# 


7210 


72 1 3# 


7214 


721B# 


7216 


72174? 


7218 


7219i* 


7220 


7221 # 


7222 


7223# 


6073* 


8800 


6627 


©649* 


6654 


6658 


667S 










7123 


7141 


71SS 


7159# 
















7198 






















6834 


88390 


6840 


7053 
















6850# 






















7201 






















6961 


6996# 




















1023 


10240 


10260 


10280 


10350 


1083 


1087s» 


1824 


1834 


1848 


1849 


19390 


19480 


19520 


19910 


21230 


21480 


2266 


2620 


3193 


3440 


3589 
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4617 

6658 
7997* 



4879 
6691 
80000 



5887 
6697 



5SS9 
67SO0 



5896 
6852 



5994 
69190 



6097 
7002 



6101 

71S9# 



61520 
7160 



6403 
7166 



64360 
7243 



SEQ 0157 



65820 
7267 



MO-1 1- 


CZRKKF . RK11 BASIC 


LOGIC 


TEST 2 


MACY1 1 


30A( 1052) 


21-FEB 


-78 Of 


3:58 PAGE 


161 












C2RKKF 


.P11 21 


-FE8-78 


08:51 




CROSS 


REFERENCE 


TABLE ~ 


MACRO 


NAMES 












SEQ 


COMMEN 


1 


1 0080 




























ENDCOM 


10 


1 0080 




























ERROR 


902# 


2212 


2223 


2325 


2336 


2346 


2372 


2378 


2383 


2408 


2423 


2501 


2506 


2512 


2519 




2558 


2577 


2581 


2614 


2627 


2633 


2638 


2645 


2674 


2684 


2688 


2697 


2702 


2708 


2735 




2747 


2751 


2824 


2836 


2843 


2849 


2853 


2859 


2863 


2869 


2919 


2932 


2938 


2944 


2949 




2955 


2959 


2967 


2973 


3021 


3034 


3041 


3047 


3051 


3057 


3061 


3069 


3088 


3095 


3103 




3162 


3168 


3177 


3187 


3251 


3258 


3267 


3276 


3280 


3289 


3297 


3303 


3372 


3379 


3392 




3397 


3421 


3450 


3466 


3540 


3549 


3554 


3561 


3672 


3684 


3689 


3702 


3717 


3728 


3821 




3831 


3835 


3845 


3858 


3927 


3937 


3942 


3946 


3954 


3961 


3973 


4037 


4069 


4075 


4082 




4104 


4168 


4181 


4189 


4199 


4204 


4208 


4212 


4218 


4267 


4289 


4333 


4337 


4342 


4347 




4354 


4362 


4369 


4381 


4426 


4430 


4436 


4441 


4452 


4460 


4466 


4473 


4525 


4529 


4538 




4552 


4568 


4622 


4640 


4675 


4690 


4701 


4710 


4723 


4736 


4753 


4760 


4L-J0 


4810 


4817 




4B21 


4833 


4886 


4912 


4957 


4965 


4970 


4985 


4989 


4992 


5031 


5038 


5053 


5057 


5094 




5102 


5107 


5122 


5126 


5130 


5172 


5187 


5201 


5205 


5209 


5238 


5215 


5253 


5258 


5261 




5273 


5288 


5294 


5333 


5340 


5347 


5362 


5366 


5412 


5418 


5423 


5428 


5432 


5472 


5481 




5492 


5542 


5557 


5586 


5608 


5618 


5630 


5694 


5710 


5724 


5753 


5761 


5773 


5802 


5819 




5926 


5962 


5969 


6003 


6021 


7274 


7292 


















ESCAPE 


10 


1 0080 




























GETPRI 


10 


1 0080 




























GETSWR 


10 


3520 


10080 


18730 
























MESAGE 


21770 


2180 


22530 


2255 


24100 


2412 


24270 


2430 


2524# 


2527 


25880 


2590 


26480 


2650 


271 10 




2713 


27600 


2762 


28720 


2874 


29780 


2981 


31050 


3107 


32000 


3202 


33080 


3311 


34700 


3472 




35940 


3597 


37530 


3756 


38850 


3888 


39890 


3992 


41 100 


4113 


42210 


4224 


43000 


4303 


43870 




4389 


44750 


4477 


45870 


4589 


46510 


4653 


47620 


4764 


48360 


4838 


49180 


4920 


49950 


4997 




50600 


5062 


51 320 


5134 


52120 


5214 


52970 


5299 


53690 


5371 


54350 


5437 


55020 


5505 


55680 




5571 


56370 


5639 


57310 


5734 


57910 


5793 


58060 


5808 


58280 


5831 










MORETA 


1 0290 


1 084 




























MULT 


10 


1 0080 




























NEWTST 


10 


1 0080 


2178 


2253 


2306 


2353 


2390 


2410 


2428 


2525 


2562 


2588 


2648 


2711 


2760 




2872 


2979 


3105 


3200 


3309 


3470 


3595 


3754 


3886 


3990 


41 1 1 


4222 


4301 


4387 


4475 




4587 


4651 


4762 


4836 


4918 


4995 


5060 


5132 


5212 


5297 


5369 


5435 


5503 


5569 


5637 




5732 


5791 


5806 


5829 
























POP 


1# 


1 0080 


6906 


7252 


7253 






















PRI0R7 


1 1980 


4608 


4645 


4743 


4824 


4897 


5561 


5662 


5899 














PUSH 


10 


1 0080 


6865 


7233 


7239 






















REPORT 


10 


1 0080 




























SCOPE 


9030 


2192 


2259 


2309 


2356 


2393 


2415 


2445 


2530 


2565 


2597 


2655 


2721 


2775 


2893 




2995 


3119 


3219 


3328 


3497 


3614 


3777 


3894 


3998 


4119 


4233 


4307 


4396 


4488 


4595 




4660 


4768 


4846 


4926 


5003 


5069 


5138 


5219 


5304 


5378 


5447 


5512 


5578 


5647 


5742 




5797 


5814 


5845 


6072 
























SETPRI 


10 


1 0080 




























SETTRA 


71900 


7199 


7200 


7201 


7202 


7204 


7206 


7207 


7208 


7210 


7212 


7214 


7216 


7218 


7220 




7222 


7224 




























SETUP 


10 


1 0080 


1828 


























SKIP 


10 


1 0080 


2341 


2381 


2406 


2419 


2481 


2503 


2508 


2515 


2554 


2579 


2642 


2705 


2866 




2970 


3100 


3300 


3463 


3733 


3749 


3867 


4001 


4100 


4215 


4274 


4294 


4376 


4470 


4541 




4559 


4584 


4758 


4830 


4901 


5163 


5291 


5489 


5659 


5717 












SLASH 


10 


1 0080 




























SPACE 


10080 






























STARS 


10 


1 0080 


1 021 


1031 


1083 


2178 


2191 


2253 


2258 


2306 


2308 


2353 


2355 


2390 


2392 




2410 


2414 


2428 


2444 


2525 


2529 


2562 


2564 


2588 


2596 


2648 


2654 


2711 


2720 


2760 




2774 


2872 


2892 


2979 


2994 


3105 


31 18 


3200 


3218 


3309 


3327 


3470 


3496 


3595 


3613 




3754 


3776 


3886 


3893 


3990 


3997 


4111 


41 18 


4222 


4232 


4301 


4306 


4387 


4395 


4475 




4487 


4587 


4594 


4651 


4659 


4762 


4767 


4836 


4845 


4918 


4925 


4995 


5002 


5060 


5068 




5132 


5137 


5212 


5218 


5297 


5303 


5369 


5377 


5435 


5446 


5503 


5511 


5569 


5577 


5637 




5646 


5732 


5741 


5791 


5796 


5806 


5813 


5829 


5844 


6064 


6597 


6736 


6784 


6855 


6923 
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S£Q 01 St 





7001 






S a'RSU 


1 # 


1 008# 




T K M T r< P 


7 1 90# 






T Y P B I N 


1 # 


GOB# 




T YPDEC 




^* 


1 nL* 


T Y PN AM 


1 » 




008 


T Y PNUM 


1 # 


nn 




T Y PQCS 


1 # 


now 




TYPOCT 


1 # 


1 008# 


1 Q^"i 


T YPTXT 


1 # 


1 008# 




SSCMRE 


1 029# 


068 




$ 5 C M T M 


1029$ 






SSESCA 


1 # 






SSNEWT 






jl Ik 




2872 








4587 








5732 






SSSfcT 


71 9G# 




7200 




7222 


7 224 




$$SKI P 


1 # 


1 008$ 






2970 




f 7Efi 




4559 






. EQUAT 


^ f 






y C A 

, Mb Aua 


1 # 




86 1 


. KT 1 1 








. SETUP 


1 # 


fen 




« SWRH I 




SS2# 


8 * 3 


, SWSLO 


85 2 # 


S8S# 




, $ ACT 1 


1 # 


852$ 


1 01 @ 


, SAPT 


! f 






■ $ A P T H 


1 # 
















1 1 






. sC A i C 






1 008 


e $ C M r A 






1 02© 


" !'E^? 








. *DB2u 


1 # 






. $ D 1 V 


] ^ 








1 # 








1 # 












6 /34 










. Is P OW E 


1 # 


85*..^ 


722/ 


. $ RAND 


1 # 








1 # 


8 






1 # 














' -ctf r 


u 

1 1 
















1 # 






. S5B20 


1 # 






.SSCOP 


1# 


852# 


6595 


.$SI2E 


1# 






. SSUPR 


1# 






.STRAP 


1# 


852# 


7167 


. STYPB 


1# 







7101 7169 7229 7245 



1868 



6772 


7022 






1936 


1945 


1949 


1964 


1070 


1071 


1072 


1073 


2253 


2306 


2353 


2390 


3200 


3309 


3470 


3595 


4836 


4918 


4995 


5060 


5829 








7201 


7202 


7204 


7206 


2381 


2406 


2419 


2481 


3463 


3733 


3749 


3867 


4830 


4901 


5103 


S2S1 



1987 


2120 


2145 


2299 


1074 


1075 


1076 


1077 


2410 


2428 


2525 


2562 


3754 


3886 


3990 


41 1 1 


5132 


5212 


5297 


5369 


7207 


7208 


7210 


7212 


2503 


2508 


2515 


2S54 


4001 


4100 


4215 


4274 


5489 


5659 


5717 





S148 


6433 


8571 


S579 


2588 


2648 


271 1 


2780 


4222 


4301 


4387 


4475 


5435 


5503 


5569 


5637 


7214 


7216 


7218 


7220 


2579 


2642 


2705 


286© 


4394 


437© 


4470 


4541 
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STYPD 


1# 


8520 


6853 


STYPE 


1# 


852# 


6782 


STYPD 


1# 


852# 


6921 


S40CA 


1# 






1 170 


1# 







. AB5. 034342 000 



ERRORS DETECTED: 

CZRKKF, CZRKKF. LST/CRF/SOL= CZRKKF. SML, CZRKKF . P1 1 
RUN-TIME: 22 31 1 SECONDS 
RUN-TIME RATIO: 392/55=7.0 
CORE USED: 34K (67 PAGES) 



